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1.0 ASSTRACT 


This diagnostic will functionally test the hardware opticns on 


the LAZ6 terminal. 
Up to 48 terminals, including the console device, can be tested 


at a tame. All terminals under test must be interfaced thru a OL1I1 
type interface. 


Control of this diagnostic et Pity thru a switch register, or via 


interactive console terminal commands. 


“ 


i.i Functiona: Description 


The program will first determine if the system has a hardware 
switch register. If none available a software switch register at loc 
176 will be assigned. 


The program will then determine what device interfaces are on the 
system, at the standard OL11-A,8,C,0,E address and the a Pali 
vector cf each interface present. This information will then @ 
stored in a table. 

The program wil] then ask the operator if hevshe want t use 
console control. by the response is “no” the program wilt halt and 
wait pa the operator to enter control information thru the switch 
register. 


Note : If no hardware switch register is present control is forced 
to console control. 


If console control is selected a menu of available commands wi!! 


be printed on the console terminal, and the program will wait for 
commands via the console. 


2.0 REQUIREMENTS 
1 EQUIPMENT 
This diagnostic was written to run on all models of the PDP-11 


3 
cnrected thru a senate line asyncronous interface ‘(DLII-A thru €E, 
L e tested. BK of memory is required. 


GP harduare switch register is supported, but not required. 


EO1 
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2.2 OPTIONS 
The following options are tested by this diagnostic: 


ASCII/APL character set. 
Selective Addressing Option. 
Auto-Answerback Option. 
Top-of-form Option. 

Horizontal & Vertical Tab Option. 


2.3 RELATED PROGRAMS 


Although some error checking 18s done, this diagnostic does not 
+46 pe ie test the basic LAS terminal, nor the terminals 
interface. 

Therefore the basic LAZ&- terminal +4 og MDEC-11-DZLAC-#, 
and the OLIi-#/DLV-11 interface test should be sucessfully run prior 
to this diagnostic. Also any other applicable processor/memory tests. 


3.G LOADING 8 INITIALIZATION 


This tdiagnostic aty be loaded using the standard opr 
paper tape, ocr via XDP media. This diagnostic wi 
chained mode because manual intervention 1s required. 
loader area is preserved. 


ocedures for 
1] not run in 
The absolute 


This diagnostic self sizes the system as far as the interfaces, 
- their interrupt vectors. The only operator modifications to be 
made are: 


1. the location *"TIMER’ which 1s a CPU dependent TIME contstant. 
See listing of DELAYM Routine. 


TIMER: .WORD ssy ;SET FOR 11735 - 11/740 
;SET TO 20e IF 11703 
3 esl 11/05 - 11710 
; 314 11715 - 11720 
; 2127 11/4S BIPOLAR - 
; 1237 1174S - MOS - 11 
; 7S5 11745 

DELAYT: .WORD 0 ;DELAY TIME BUFFER 


é. any of the preset device address to accomodate a non-standard 
interface address. (See Sect 7.0 for details) 


3. location *WIDTH’ if other than 132 COL PAPER is being used. 
(See section “.3). (Common for all terminals) 


The anitial starting address 1s 200(8), and all restarts at 1372. 


- 


4.0 CONTROL & TEST SELECTION 


The diagnostic will ask (via the console) if console control is 
desired. Answer ‘Y° if ou want to use interactive commands, 
ctherwise type “N° for switch register control. 


If *Y* as tyoed a menu of available commands is pri 
console, and the program will wait for command input. If “N’ is “eee 
the program will print a listing of the line (interface) able en 
halt for the operator to set the switches to the desired parameters. 


nt 
t 


GOl 


@ 
4.i SwITCH REGISTER CONTROL 


When SWITCH REGISTER CONTROL 1s selected the program will halt. 
Set the switches to the desired mode, then press continue. The 
program will check the entry and if a specific test is to be run, or a 
specific line is to be tested the program will halt egete- Enter the 
desired line/’test data in the switches, the press continue. 

To change parameters the test must be restarted at loc 1372. 


ALL of the switch functions are also available under console 
contro] mode. (See sect. 4.2,4.3). 


SWITCH REGISTER BIT DEFINITIONS 
FIRST WORD MODE SELECTION 


BITIS =1 (UP) HALT ON ERROR 
=0 (DOWN) CONTINUE AFTER REPORT 
BIT14 =1 (UP) LOOP_AFTER ERROR IS DETECTED 
=0 (DOWN) DON’T LOOP 
BIT13 =] (UP) INHIBIT ERROR REPORTS 
=0 (DOWN) PRINT ERROR REPORTS 
BITl1e@ =1 (UP) PRINT INTERFACE TABLE 
=0 (DOWN) DON’T PRINT TABLE 
BIT11 =1 (UP) INHIBIT ITERATIONS 
=0 (DOWN) NORMAL RUN . 
Bits =1 (UP) RUN ALL TESTS IN SEQUENCE 
=0 (DOWN) RUN SELECTED TEST ONLY 
BITS =1 (UP) RUN ALL AVAILABLE LINES 
=0 (DOWN) RUN SINGLE LINE ONLY 


SECOND WORD LINE AND TEST NO. 
BITIS - BITS SELECTED LINE NUMBER (00-57) 
BIT7 - BITO SELECTED TEST NUMBER <¢ O-5 ) 
‘ 
4.2 CONSOLE CONTROL 
When console control is selected a menu of available commands is 


typed on the console terminal. The program will wait for commands to 
be entered thru the keyboard. : 


e 


Enter one command per line, followed by a corr jege return. To 
terminate command input and start execution type an ALTmode or ESCape. 
To regain control once execution has begun type a CTL-C. The 


program will respond with ‘READY’. You can now enter the desired 
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commands just as in startup. 


4.3 COMMANDS 


There are two types of commands available, interactive commands; 
and static commands. 


ALL static commands can only be entered while in “Command Mode”, 
that as durin startup after ‘READY’ is printed on he console, or 
after the operator has_ invoked command mode by typing a CTL-C and the 
program has printed "READY’. 


Interactive commands can be entered at ery time, and are 
essentially the same as the switch register bits 15,14,13. 


The available Commands are: 


Ss (STATIC) Single Line Mode. Test a single 
device. Line OO is default. Use add command 
to select the desired line. 


M (STATIC) Multi Line Mode. Test all] lines 
present and not deselected. 


3 (STATIC) Sequence thru al] tests, starting . 
with test O. s 
Pr (STATIC) Run test N. 
Dr (STATIC) Deselect or Drop from testing 
interface line N. (see T command) 
An (STATIC) Add line N. Clear out the 


error count for line N, and reselect the 
line for testing. In single line mode 
sets N as current line to test. 


T (STATIC) Tore out a listing of the interface lines 
present on the system, the vector address et 
which the device interrupts, and weather or 
not the line is selected. 


we (STATIC) Fhaages location "Width’ to %. Used 
tc control] output of terminal tests. Enter N 
as an Octal number 32 to 204. (132 decimal)? 
CTL=L (interactive) Loop on error. If an error 
1s detected the program will start looping 
on the test section which caused the error, 
and continue to loop until a Klear 


command is issued. ° 
In command mode type an L. 
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CTL-H (anteracive) Halt on error. Will cause the 
program to halt. after the error message is 
printed. (assumeing error printouts are enabled 

In command mode type or H. 


CTi=-k (interactive) Klear - resets both the H andi 
commands (Don’t halt, Don’t > 
In command mode type a C. 


CTL=N (anteractive) NO Error reports. Inhibits 
the printing of normal error messages. 
In Command mode type an N. 


a (interactive) Print error ty Ay ALL report 
messages will be printed on the console. 
In command mode type a P 


CTL-G (interactive) Will cause the program PCFLAGS 
to be displayed on the console for 
trouble shooting purposes. See listing for 
bit definitions. . 

ESC Exit command mode & start execution of 
the diagnostic test(s). 

CTL-c Returns test to command mode. 
All operations in progress stop. 


+.4 EXAMPLES & HINTS 


Test numbers O thru S may be selected to run individually on all, 
cr any terminal. 


ALL tests can be run sequentially on all or any terminal. 


Tests can be run sequentially on a teminal, but there is little 
chance that an terminal will have more than one or two of these 
Options installed. Sequencing all tests will probably result in 
numerous errors from trying to test non-existant options. 


Tf a line gets more than 16 errors it will be deselected b the 
(ceeres and a message will be ‘tier on the console. If the ne is 
he cnly one being tested it will automatically be re-selected. 


Example 1. the commands to select test #4 to be run on all lines. 


READY ‘s 
ROY(CR) - Run test 4 

M(CR) - Multi line mode 

W1l2O(CR) - 


Set paper width to 120 
ESC - echoed as $ 
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Example 2. the commands to run all tests on line 
no. O6, with Halt on error set. 

READY ‘ 

Qa(CR) - Sequence tests 

S(CR) - Single line mode. 

ADE.CR) <- Add line #06 

H(CR) - Halt on error 

g - ESC - echoed as $%. 
EXAMPLE 3. How do I run tests on 10 out of le terminals. 

First you_ must be in command mode. If a test is running type 

CTL=-¢. The program will respond with “Ready”. Now hype Donn 

fer) to deselect line number nn. Repeat for each additional 

line to be dropped from the tests. ow select your test -other rad 


parameters as in Example 
EXAMPLE 4. How do I restart a device which has been deselected’ 


In command mode tupe Ann (cr) where nn is the tine number of 
tne line to be added. 


EXAMPLE S. How do I loop on error. 
If the test is runnin type a CTL-L. When an error is 
detected the ty ram wat Meare to loop_on the test or sybtest 
and continue to loop until # CTL-K or CTL-C command is issued. 
If in command mode type L (CR). 


EXAMPLE 6. Can I set the ‘width’ constant different for each 
terminal? 


The constant ‘width’ is the same for all terminals, although 
it may be changed any time you are in command mode. 


S.G SCOPE OF TESTS. 


This Sspgooetis will functionally test the following hardware apticns 
of the LA36. 


1. Secondary character set option APLYASCI1 character set 
selection 


&. Selective addressing option 
3. Futor-answer back option 


4. Top of forms option 


——$—$—$—— a a - —_ 


KO1 


S.- Horizontal and Vertical tabluation option. 
The diagnostic will do cursory testing of the basic interface, and 
basic Ase logic. It 1s assumed that the basic interface, CPU/memory, 
and LA3SE tests have been run successfully. 


Due to the nature of the hardware under test most error checking will 
be by visual inspection of the terminal output by tne operator. 


Description Of Tests 


S.1 Test O Seccndary Character Set. 
This test is an output only test, No terminal feed back is received. 


The test prints on each terminal alternating lines of ASC11 character 
set, and Be. character set. 


Output of characters pr line will consist of char codes 4O thru 176 
unless the paper width limit is reached first. 


Output format: 


PRIMARY----(ASC11 CHARACTER SET) 
SECONDARY--(APL CHARACTER SET) 


This output 1s controlled by the “width” of the paper. See W command 
description. 


S.2 Test 1 Selective Addressing Option 


This test will alternately send out a select code followed by it’s 
ASC11 Equivelent, for all possible select codes (20 thru 177). 


This test will also deslect al] terminals and try to output a “this 
should not print” message. “All terminals should be off” 


This test will also at | to print “this should not print” messages 
after transmitting ’RUL’ select character sequences, and no select 
codes sequences. 


Valid terminal output should be: Select Recognized = /NN(Group Select 
Code) /NN( Individual Select Code)/ 


Wihere NN represents the select codes recognized by this terminal. If 
the group select code and individual select codes are set to the same 
thing them only one /NN/ should appear. 


More than two /nn/ codes printed indicates a logic failure in_ the 
Soe otor section of the option, or possibly interface to terminal line 
problems. .* 
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Any of the “this should not phe ob message that appear on the terminal 
indicate a failure of the selection logic. 


5.3 Test 2 Auto Answer Sack Option 

Tris test is divided into siz subtests: 

Subtest -1 

The first subtest 1s actually a sizing routine. The terminal should 
respond to its unique selettion code with an answerback when polled. 


This test has no way of knowing what the answer back is, nor any wa 
of dBi ne bee its unique selection code. Therefore subtest - 
se 


will try all lega lection codes to see if it can cause an answer 
back to be transmitted. If one is received the corr will store the 
select code associated with the response in the line table for furture 
testing. 

Subtest -e 

Will see if any answer back has been received, and check its length 
the mescons should not exceed 20 (10) characters. Subtest 2 will 
print the ASCII message on the terminal, and an octal representation 
of the characters to vwerify non printables are being trarsmitted 
correctly, and as a trouble shooting aid if bad data is being sent out 


from the switches). 
Subtest -3 


Will read the answer back ten times to verify reliability of the data, 
and lines. 


Subtest -4 


Will try to cause transmission of the answer back in response to a 
broadcast code. 


Single Line Mode - Subtests S, and 6. 
Subtest -S 


The test will request the operator to press the ‘Here-is’ key, then 
check for answerback. 


Subtest -6 


The test will request the operator to type ‘CTL-E’, then check for 
answer back. , 


The operator must verify that the message echoed back to the terminal 
1s correct, by comparing it to ¢ 


¢ me 
o the data switch configuration. 
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5.4 Test 3 Top Of Forms Option 


This test 18 divided into two su tests, one for eels) Ling mod«, th 
other for gin le line mode. perator intervention will be require 
for the single Tine test. 


1. Multa line mode. 


poo subtest will assume a standard form of 11 inches being 
used. 


The ‘ast will issue a form fee, then print a line of dashes. 
This /dashes is repeated times. 


The operator should verify correct operation by checking for 
a line of dashes at the same place on each page. 


tw 


In single line mode, This test will require the operator to 
set the forms length switch to the value requested. The test 
will then do three form feeds at each length setting. 


S.S Test 4 Horizontal Tab Option 


This test will adjust it’s output to conform to the paper width. 
ergs see) dae at's" “to the appropriate value before starting test. 
co 


h 
(Preset to 1 1.) Note: see LP command description. 
The test wili print a reference line for visual verification. The 
line will look like this: ..... anwar x Wie ninewa Waianae Viawes 


Tabs will then be set corrgepeedia to the location of each 
test will then issue a tab and print an X, tab then X etc 
line is complete. Three lines of X’s wil be printed. 
printed should be aligned with the reference line V's. 


This will be repeated for various (7) values of tab spacing. 


Example of output 

amare ee, SO ee. eee ty. eee 
x x a x x 
x x x x x 
x x x x x 


NO1 


sie. aes SE@ 0013 

























S.6 Test S Vertical Tab Option 


This test 1s divided into ‘wo subtests, one for multi line mode, the 
other for single line mode. The single line mode test requires 
operator intervention. 


Multi line mode subtest 


Will set tabs at intervals of 1 line, 2 lines, 3 lines etc. up to lil 
lines. The test will then issue a vert. tab then “whey a iine of 
dashes, then repeat until 1 full page has been done. Three pages of 
output are run for 1 pass of test. 


siagre line mode testing involves the operator to set up the forms 
control to 11 inch forms, and then proceeds with the same subtest as 
for multi line mode. 


>.0 ERROR REPORTING 


There will be four basic sources of error me 
sizer, second the command decoder, and third 
the I/0 drivers. 


First the system 
tagnostic tests, and 


aw 


>-1 Diagnostic Tests 


All test error messages will be 2 lines of output. A standard format 
line, shown below, and a descriptive message telling what went wrong. 


Std. Fmt.: @ERROR XXY TEST YY LINE 22 -~ 
where XXX = the error number local to the current test. 
YY = the current test number. 
ZZ = the line under test. 
an example of a descriptive message 
-NO ANSWERBACK MEASSAGE RECEIVED 
As each error is handled a routine will update an error count for the 
failin line. If 16 errors are accumulated on a line, that line will 
be “deselected” and the following message will be displayed. 
EXCESSIVE ERRORS .. LINE XX DROPPED. 
If the line under test is the only line being tested the program will 
automatically re-select the line, zero the count, and saat sake testing 
after typing the following: 


LINE RE-SELECTED FOR TEST. 





6.2 1-0 Driver : 


If the I0 Driver finds no available line to test a mes 
displayed and then control will return to the “ready” st 


NO LINES AVAILABLE FOR TEST. 


e377 Multi line driver error. 
Error weet fs tagges as 8377 indicate a failure during an 170 
driver operation, such as a failure to interrupt on transmit to a 
terminal with the interrupt enable set. 


e376 
Same as 8377 except a single line Driver. 


>.3 Command Decoder 


Console terminal command errors will be handled by a CMDERR module 8 
will output a line of 7777 aff the input was invafid. 


tires to add (re-select) an invalid or non 


If a line selection command 
INVALID message will be typed. 


existant line a --LINE 


>.4 System Sizer , 


If during the pistes operation the sizing routine detects a failure of 
the interface to interrupt it will be reported. 


ex: “NG INTERRUPT ON TXMIT LINE 27’ 


7.0 PROCEDURES FOR NON-STANDARD DEVICES. : 


This diagnostic can be modified for use on devices that have 
non-standard interface addresses by replacing :n unused address in the 
line table with the address of the interface line to be tested. 


The table is preset to the standard DLI1-A,B,C,0,E addresses, (775610 
- 776170 & 776500 - 776670). and the console address 777560. 


No modification need be made because of non-standard interrupt vector 

addresses. The diagnostic sizes each address for presence on the 

systen, and inserts the interrupt vector data into the table at run 
e. 


NOTE: The table addresses are not in ascending order, rather it has 
been optomized for relative system Size by having the most 
commonly used addresses at the head of the Yable. OL11-A.B 
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and OLii-C,D.E address are merged together. 
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CELAFRO LAZE TERM TST MAc yi) JOR. 1052 O3-JAN-77 90:01 PGE 1 
CeLRAFR. ELL O3-JAN-"8 11:20 


10 00250 

il : .TITLE CZLAFAO LAZ6 TERM 7ST 
;*#COPYRIGHT (C) hag 

:#0IG GITAL EQUIPMENT CORP. 

i SMAYNARD , maSS. 01754 


: SPROGRAN B: R.SCHAUBER 


‘ STHIS PROGRAM WAS ASSEMBLED USING THE POP=id MAINDEC SySrac 
‘* PACKAGE (MRINDEC-i1-O02GAC-C3), Jan 19, 1977. 
60000; bt nye 


beCl5C $SWR= 160000 :;HALT ON ERROR, LOOP ON TEST, INHIGIT ERBOR 7 E77 


eee ee ee eee ee ee ee 


FOe 


3 ew LAE TERM TST = MACY11 30A.1052) O3-JAN-77 00:01 PAGE 1-i 


ZSLAFALPLI 63-JAN-78 11:20 é S£% 0018, 
i 00260 
ls echaty yeenede OPERATING INSTRUCTIONS #8 esse sensessessseseseseseseressss 
is : 
ié 60320; #1. THIS TEST ASSUMES THAT THE BASIC INTERFACE 
i? 90340 =C;: LOGIC TESTS & BASIC LAZE AP UNG T TONS TEST 
1g 90360 ; MDEC-11-DZLAC-x HAVE BEEN CESSFULLY. 
Fe} 04 : TIMING FOR oe Te Ts Is tee ON CPU TYPE. 
2i poe ; TIMER Cale “En 740. ++ fhe THIS 1s 
ce ; 
ss Bees ; RECORD ne NOE b0 cat TON * N THIS LISTING. 
es o0SOO~ os: +2. THE DIAGNOSTIC WILL START BY ASKING IF THE OPERATOR 
se O0se0 WANTS TO USE CONSOLE TERMINAL CONTROL, ANSWER Y OR N. 
zs Sees Hea heed SAME a ce NTE Rc Ri ORE 
3 50690 : FOR INSTRUCT TONS fHAU HE 
32 oO es : NTERED, THE PR WILL PRINT A LISTING OF 
35 0 ; be nite HUMBER press cin SET THe SHI TCHES 
34 00680 —Ssé; INUE. THE PROGRAM WILL 
3s 00700 —=SC; hae goisek TE RUNNING A SELECTED 
3€ 00720 =O: iarea cept rite: T AGAIN. 
3: 00740~—Cé; eA fh ) . oft Ow ORDER BYTE, AND-OR 
38 te ; NO. sf. ‘a en R BYTE. PRESS CONTINUE. 
SC oosoo_ Co: coat SWITCH REGISTER Is PRESENT ON THE SYSTEM 
41 o0s20_—Cés; ATION 176 AS A SOFTWARE SWITCH 
4 90840 ; REGISTER, CONTROL ay Ae DEFAULT TO THE CONSOLE ! 
44 oogso.sSé; 
45 00900 «=«:+3 S TYPE CTL-C 
46 00920_—=C#é; THE CONSOLE WIL SPOND WITH READY 
47 oo940_—Cs«C; ENTER Y Cc FOLLOWED BY AN 
“8 og9so-)—Cs; INTERACTIVE SUCH AS CTL-G MAY BE ENTERED 
23 90955 NG C , OR RUN MODES. 
51 00980 +4 IF 00s IS SELECTED, A TABLE 
Se 1000_—sés; OF INTERFACE LINE WILL BE PRINTED 
== 01020 3 ALL L T WILL BE INITIALLY SELECTED 
>> 010#9 ; IF vou NERD OR SER OP LINES USE THE LINE N 
ep 01066 : SPECIFIED IN THE LINE TABLE LIST. 


GOe 


CZLAFAO LAE TERM TST MACY11 30R\ 1052? 03-JAN-77 GO0:01 PAGE 1-ée 
SSLAFA.Fii> O3-JAN-78 11:20 


F34 91168 ;# *#e8 SWITCH REGISTER BIT DEFINITIONS s#eseeesesessssassaseses 
ee) 91200 ; BITIS =1 (UP) HALT ON ERROR 
61 b1e20 : =0 (DOWN) CONTINUE AFTER REPORT 
&3 01260_~—sé'; BITI4 =1 (UP) LOOP 7PFTER ERROR IS DETES TEL 
ge Bis8B =0 (Bown BON! 1" L0P 
3 01320—Cé; 6IT13. =1 (UP) INHIBIT ERROR REPORTS 
o. B 130 : =0 (DOWN) PRINT ERROR REPORTS 
eg 1 ; BITI2 <=1 (UP) PRINT INTERFACE TABLE 
20 G1400 ; =C (DOWN) DON’T PRINT TABLE 
ra 144 ; BIT1i  =1 (UP)  INHIBIT_ITERATIONS 
23 siie8 1 34 (BOWN) NORMAL RUN 
7s 1 ; BITe =] (UP) ESTs N_ SEQUENCE 
z=é 51820 ; =4 (BOUND & RUN UN cttect 2b TEST ONLY 
78 0is60 =; BITS =1 (UP) L AVAILABLE LINES 
79 01580 =; =0 (DOWN) RUN SINGLE LINE ONLY 
C 01600 
gi 01620 
BE 01680 ; SECONf WORD ENTRY VIA SWITCHES 
ee 81689 ; BIT1S - BITS SELECTED LINE NUMBER 
SE 0172e0_—é=; BIT7 - BITO SELECTED TEST NUMBER 
Se 5168 
o 01780 ;eeeeeees TEST ASSIGNMENTS ##888eesEES ESHER OSH T ESTEE ee ESEeees 
3: 81898 ; TEST O SECONDARY CHARACTER SET 
3e o1e40 Ss; TEST 1 SELECTIVE ADDRESSING OPTION 
33 91960 : TEST 8 AUTO ANSWERBACK OPTION 
2 1680 —Cé: TEST OP OF OPTION 
95 91900 =: TEST 4 HORIZONTAL TAB OPTION 
3 01920; TEST S VERTICAL TAB OPTION 


Oe 


CZLAFAO LAS TERM TST MACYL1 30AR.i0S52@) O3-JAN-+77 00:01 PRGE 1-3 


CDLAFA.PLI 03-JAN-78 11520 S€% 0020 
98 01960 
i3e 85985 , oeOeREREE SES 
10 92120 : LOCAL PROGRAM EQUATES ; 
138 goggec 92160 ABO = ow sLINE ABORT FLAG 
tic o00004 0220 ADOC Bite 
1ii 2 = BIT? 
He e558 eat as 
113 6 €TL 3 
114 000000 02280 CTLONT = C 
Lis 07 02300 cILG : ? 
i?8 03013 08308 ETtR = 49 
i168 0014 230 €TLL = 14 
eo Bas ' Bee ene © Is 
31 AIN = BITLI1 . 
:8§ 328 Pepe SIThF,5 ;LIN& PRESENT FLAG 
124 900005 02380 Ea = 5 r 
iS Bgiey Fae BHT 
128 900033 02460 ESC = 3 
i$¢ ? p5380 ET Aci 2s erro 
131 50 : 2 Frags 2 Bit! 
i ees sere: Bue 
i354 aaa ae Bs288 CNT’ = 8} : 
3s 0040 02600 INHR = BITS 
136 C 2 NHRPT = BIT13 C 
: 8 Ss ies rat 
i38 Doos OSe80 LDONE. : Bite eae 
iS BoGkR Berap tear. = Etre | 
ie 000200 02740 PRIY = 200 ;PRIORITY 4 
142 38 88768 BRIG = 8° Ree ey 
i4s 800 SEL = BIT? "LINE SELECT FLAG 
3 eB ks 
? 
tae OD800E D2680 p INT rc _— 
isc oo00b2 02900 PASCNT = 2 
ie ag 5486 NREG _= 440 
7é§ 1 96 SI = 17 
ie 000516 02980 50 = 16 
ie Be pe ts | 
tz5 . 77 « - 
+25 ctiatetstd o3e¢8 TONE a gi+15 
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BASIC DEFINITIONS 
03080 MERR = BITIS 
03120 NEWTST = BITIO 
03140 NEWMOD = BIT9 
03160 READY = BIT? 
03180 EO = BITe 
03200 MULTI = BITS 
03220 SWCiL = BITY 
03240 PRINT = BITY 
03260 MERRN = 100377 
3280 MFLAGS = 4 
03281 TPS = 177564 

282 TPB = 177566 

83 KS = 177560 

264 TKB = 177562 

28 Tk 


Ss V = 60 
300 ;eeeeee EMT CALL EQUATES 
0 TYPE = EMT 


PRITBL = EMT+2 
360 ITRAP = EMT+4 
380 DELAYR = EMT+6 





O 
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eS A.P O3-JAN-78 11:26 BASIC DEFINITIONS 
181 03500 .20 > TRAP CATCHER 
18¢ 000C.:00 pS 500s 03520 -%e 
is ooocude o00000 Baaie — —_ 
tg¢ + §00a06 B3260 fy 
186 0O00010 3600 +2 
187 O00Cie 03620 HAL’ 
188 14 03640 INTRAP ;BREAKPOINT TRAP 
189 46 03660 PRI4Y :USED we SYSTEM SIZER 
190 03680 TXTRAP ;I0T TRAP 
191 pons 83708 PRI4 :USED BY TXMIT 1/0 DRIVER 
192 720 RESTRT : POWER FAIL TRAPS TO RESTART 
193 OO0f0e6 03740 PRI 
194 0O0u0 03760 EMTBOS 
19S o00032e 03780 PRI 
206 04000 =17 
e207 000172 04020 SWTEST WORD 0 
208 000174 04040 SWL INE WORD 0 
203 000:7&6 9d000000 04060 SSWR . WORD 0 
eid 000200 900137 001102 04080 JmP START 
ell 04100 
iF -SBTTL ACT11 HOOKS 
(2) ‘ 5 REESE EREREAAEESEASLSSE SS FSSESS SSS LELSEL SEAL SSS SSA SSFSHES SSS SSES 
(3) HOOKS gg BY ACTII1 
(1) 006204 ;SAVE PC 
(1) 000046 =46 
+e ocOo4%6 Bed AOS START ;;1)SET LOC.46 TO ADDRESS OF START 
ct ocoose de0000 . WORD 20000 +32)SET LEC, TO 20009 
is abies o4199 -etieee Mesto 
eli% o001i1cS 000240 04160 NOP 
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SET Oe ee yang Tis26 TEST CONTROL & INITIALIZATION 
216 04200 .SBTTL TEST CONTROL 8&8 INITIALIZATION 
eel 04300 , PEESEERERSEESSRESSSESSESSES SSE ESSE SESS 

4 ; ; 

sss 00112 ba3g0 START: ;eeeeeeeeeeee TEST MONITOR ##essoeee8e% 
2eeS 900110e xsc000s ake RESET | EERE SEES SSE EESS SEES EFSE ESS ESES ES EEE S 
558 04420 =; :-~ PROGRAM INITIALIZATION SECTION 
228 O444O-~—C; 
229 001104 oO 2706 001100 . MOV aSTACK,SP 
230 001110 37 016152 , CLR NEXT 
231 001114 005037 016154 CLR INTEST 
232 001120 005037 016162 CLR NXTLIN 
233 001124 005037 016160 CLR ONLIN 
234 001130 012737 016114 016164 MOV SINBUF ,PTR 
235 001136 O1270S 0610352 saan MOV sTOOBLK, RE 
237 " Uibu0 =; SEE IF SYSTEM HAS A SWITCH REGISTER 
238 O4%620_—Cé; 
239 001142 004737 003006 JSR PC, SWRTST 
240 OY46E0_—Sés; 
241 04680 =: PRINT TEST IDENTIFICATION MESSAGE 
242 04700_—=Cés; 
243 001146 012700 016772 . MOV #PROGID,RO 
ews 09i1S2 104000 o47ag : TYPE 
246 04780 ; DETERMIN SYSTEM CONFIGURATION ++ 
a4 94800 : BUILD A TABLE OF INTERFACE LINES. 
249 001154 004737 OO0S64O a . JSR PC, BUILD 
251 g4g80 : RESTORE TRAP CATCHER FROM 100 TO 1009 
253 001150 004737 o06126 : JSR PC,.CATCH + 
eee 001164 104002 04930 PRTTBL 
256 04960 =; FIND OUT IF OPERATOR WANTS TO USE 
4 04980 : CONSOLE OR SWITCHS FOR CONTROL 
259 001166 004737 003350 ‘ JSR PC,GETSRC 
260 001172 004737 003332 05030 START2: JSR PC’ CONSON 
261 001176 032737 000020 001364 BIT aSWCTL, PCFLAG 
£9) 021204 O01011 ine : BNE 50001$ 
663 05080 : PRINT A MENUE OF AVAILABLE COMMANDS 
265 001206 012700 017051 . MOV #L3,RO 
266 go1ele 104000 05115 T 
267 1214 012700 017056 MOV SHEADR1, RO 
268 O0l220 104000 05140 TYP 
269 O0l222 012700 017103 MOV sCOMSUM, RO 
270 OOlee6 104000 05180 TYPE 
271 001230 SO001$: 
272 001230 004737 003332 o0S220 START3: JSR PC, CONSON 
4 001234 sone 50002$: 
275 901224 032737 o00020 9001364 ; Bit aSWCTL ,PCFLAG 
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CZLAFA.P11 03-JAN-78 11:20 TEST CONTROL 8& INITIALIZATION seo ofe4 
(9) 1242 001403 BEQ 50004$ 
532 vas O0S340 =; IF IN SWITCH CONTROL GET CONTENTS OF SW REG. 
277 001244 004737 003130 JSR PC GETSWS 
278 001250 o004e21 BR sodoss 
£3) 001252 a S0004S: 
280 OS440 =; IN CONSOLE CONTROL SIGNIFY READY 
2o1 c 460 : AND READ COMMANDS FROM THE CONSOLE. 
283 o001252 012700 020123 : MOV @RDY , RO 
284 001256 104000 oss20 TYPE 
285 1 so00es: 
286 1 000001 oSS60 WAIT 
287 l2@62 032737 000200 001364 BIT SATTN, PCFLAG 
(S) OO0le70 001001 BNE 50007$ 
288 OOle7e 000772 R 50006$ ’ 
(3) 001274 50007$: 
289 0S620_—C*=; 
230 C5640 ; PRINT THE LINE TABLE IF REQUESTED. 
292 001274 032737 010000 001364 . BIT #PRINTT, PCFLAG 
(9) 001302 001404 BEQ 50010$ 
293 001304 104002 05700 PRTTBL 
294 001306 042737 O10000 001364 BIC #PRINTT, PCFLAG 
001314 500108: 
3] 001314 05780 SO : 
298 05800 =; SET UP THE 1/0 DRIVER AREAS 
299 Os8e0 ; SET UP & EXECUTE REQUESTED TESTS. 
301 001314 737 002110 ' F JSR PC, LINMON 
302 001320 012700 O20411 05870 MOV sALLON, RO ; ISSUE A SELECT ALL COMMAND 
303 001324 737 007010 05872 JSR PC ,MTYPE IN CASE THERE ARE SELECTIVE 
304 05874 ; TERMINALS ON LINE. 
305 001330 004737 o01446 ISR PC, TSTCTL 
306 001334 032737 OO4O00 oD2032 BIT #E OL . CFLAGS 
(5) OO01342 001406 BEQ 
307 001344 042737 O04000 o02032 Cc #E0L, CFLAGS 
308 001352 004737 001372 JSR PC RESTRT 
309 091356 000726 aaah BR soboes 
310 65130 000137 001172 05990 * IMP STERT2 
311 001364 +n 50000S: 
sig 6040 ; REEKKKLSKEREEE HEGRE RR RRREREEREREEESSREES 
’ * * 
315 06080 _ «SC; * NOTE...TYPING CTL-G WHILE IN CONSOLE + 
316 06100; ¥ CONTROL MODE WILL CAUSE THE * 
32 06120 : * PCFLAG WORD TO BE PRINTED. * 
319 06160 H HHH HH EE EE EEE 
320 001364 06180 éTLBLK: ;PROGRAM CONTROL BLOCK 
ae) Belaee BoERRE ees05 Fecths: SRB 1g i. agape a 
323 001370 oo0000 06240 LINENO: .WORD O :LINENO 


324 06260 
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TEST CONTROL & INITIALIZATION 


APSE? j RRAASLSAAALERARAARA LAE SEH 
; PCFLAG BIT DEFINITIONS # 


06282 g SESE HE HE He Se SEE HE EE HH HE aE HE aE aE a a aE 
Besay ; BIT 1S HAL TOE 
O6e8S  ; Bit 14 ares | 
Beses ; BHT 13 BRING 
Ob6ess ; Bit H, parry 
’ 
Besse; Bit 9 NEWMOD 
06291 ; BIT §& LDONE 
Rosas ; ait 7 oi 
ee BIT E MULTI 
0629S ; BIT 4 SWCTL 
0 ; BIT 3 DROPC 
0629 ; BIT e ADOC 
06298 ; BIT 1 FLAG2 
06e399 ; BIT O FLAG1 
06300 ; 
06301 ; 
305 
06306 
06307 
06319 =—«_ g, MHRA HHH 
06320 ; RESTART 
06340 5 HE He HH HE EE HE aE HE HE HE 
=\8 
De aat RESTRT: MOV aSTACK, SP 
400 CLR NEXT 
06420 CLR INTEST 
06440 MOV #1 ras 
Oe4e0 CLR NXTLIN 
480 CLR ONLIN 
06500 MOV BINQUE PTR 
Ob5e JSR PC, CATCH 
654 NOP 
06560 RESET 
06580 JMP START3 


IN ERROR (SW-15) 
Y Eeegtrs ett a 
{eBee* 18-18 


F K6O. 
C iN TEST NO. 
C N P 
a LINE ABLE REACHED 
E 


NO CURRENT 170 TO CONSOLE 
COMMANDO INPUT MODE 
O TESTING OF CONSOLE 


;REINITIALIZE EVERYTING 
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CZLAFA.P11 03-JAN-78 11:20 TEST CONTROL 8% iNITIALTZATION SEG 0026 
383 oe 700 peTSTCTL THIS SECTION CONTR ELECTION, TEST 
30 pes ; St QUE RE TNE. AND TRIER AE Eee #5 ERROR AND REPORT 
372 740; MODULES AS NS’ REQUIRED BY THE TEST MODULES. 
a3 ’ 5 Hea HE HE EEE HE aH HE 
375 001446 013737 001366 016152 TSTCTL: MOV TESTNO, NEXT ;GET TEST 
376 OO14S4Y 013737 0O161S2 016154 06820 LOOPI: Mov NEXT INTEST, :GET CURRENT: TEST NO. 
377 001462 004737 O020S6 06840 JSR su 
378 OO01466 004777 014464 06920 LOOP2: JSR Pe; STESTAD ;;START TEST 
379 06940_—Ssé=; ‘ ‘ : . 
380 06942; 

381 Oeau4 : CHECK FOR ERROR FLAG FROM TEST 

383 091472 032737 o00020 001364 : BIT SSHCTL, ,PCFLAG 

(9) 001500 001414 BEG 

384 001502 017737 oO14416 016100 MOV osu, TEMP 

385 001510 2737 0037 016100 BIC EMP 

386 001516 042737 174 001364 BIC ean PCFLAG 

387 O015e4 053737 016100 001364 BIS TEMP, PCFLAG 

388 O01 S0011S: 

389 06953 

390 001532 032765 100000 oD0004 BIT aMERR, MFLAGS (RS) 

(9) 001540 001414 BEQ 50012$ 

391 001542 016537 oD00004 xD2032 MOV MFLAGS(RS) CFLAGS 

33¢ 0015S0 016537 O00006 O02034 wens MOV POINT(RS), TSCPTR 

33 07004 : CALL ERROR HANDLER ROUTINE 

396 001556 004737 005124 . JSR PC, ERROR 

397 001562 042765 100377 ocDD004 BIC #MERRN, MFLAGS(RS) 

398 001570 oo04e1 BR 50013$ 

£3) 001572 oes 50012S: 

00 07064 : SEE IF TEST IS REPORTING DONE CONDITION 
001572 032765 o20000 oD0004 . BIT x TDONE , MFLAGS(RS) 

(3) 001600 001415 ace BEQ 5501 4s’ 

wae 7084 [UPDATE THE PASS COUNT THEN REPORT END OF PASS 

406 OC1602 o0S5265 oc00002 : INC PASCNT(RS) 

407 001606 042765 O20000 ooD004 BIC #TDONE , MFLAGS(RS) 

408 001614 052737 020000 O002032 BIS HE OP C LAGS 

409 001622 016537 O00002 O02036 MOV PASCAT (RS), TSCCNT 

410 001630 bos 737 005436 JSR PC, REPORT 

411 001634 SO014S: 

ut 001634 nets 50013S: 

414 07204 : IF LOOP ON ERROR IS SET AND AN ERROR IS 

415 07226 sDETECT ED THE ERROR HANDLER WILL MAKE THE 

iis O72c8 jRETURN ADDRESS OF THE TEST ODD 

mt 07636 * CHECK FOR ODD ADDRESS....IN LOOP MODE... 

420 001634 032765 oO00001 oDD010 ‘ BIT #BITO,RPC(RS) r 
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001413 


032737 
001006 
O42e76S 
016837 


COO4SE 


ll 


040000 
900001 
000010 


oo000de 


040000 
002036 


005436 
o0000e 
177776 
000100 


0161Se 
0161Se 


016154 


016152 
004000 


002056 


O020S6 
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001364 


000010 
016156 


000000 
002032 


oooo00 
000000 


001364 
016154 


oo000S 
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TEST CONTROL & INITIALIZATION 


07600 


07742 


BEG s5001S$ 


: IF THE LOOP Qt ERROR IS TURNED OFF THEN 
: CONTINUE TEST AT THE NEXT SUBTEST. 
. BIT #LOOPOE , PCFLAG 
BIC #B1TO, RPC(RS) 
MOV RPC(RS), TESTAD 
sO016S: 
BR 500178 
sooiss: 


CHECK TO SEE IF THE ITERATION COUNT IS COMPLETFD 


CMP PASCNT(RS),CTLCNT(RS) 
BIS BEOT, CFLAGS 
CLR TSCCAT 

; REPORT END OF TEST CONDITION 

‘ JSR PC, REPORT 
MOV PASCNT (RS) ,CTLCNT(RS) 
ADD ICNT (RS), CTLCNT(RS) 


: IF IN SEQUENCE TESTS MODE SET UP NEXT TEST 
; BIT #SEQ, PCFLAG 
BEQ 
MOV NEXT, INTEST 
INC NEXT 


IF_NEXT IS @ NON EXISTANT TEST SET EOL 
AND RETU?N TO MONITOR FOR NEW COMMANDS 


CMP INTEST,#S 
B.E SO0ee$s 
CLR XT 
SIS #EOL, CFLAGS 
RTS PC 
BR $0023$ 
$0022$: 
JSR PC,SUTEST 
$0023$: 
S00c4S 
$00e21$: 
; SET UP TEST ADDRESS FOR THE SAME TEST AGAIN. 
JSR PC ,SUTEST 
s00e4S: 
BR sooess 


S00e20$: 


SES 0027 


03 
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CZLAFA.P11 O03-JAN-78 11:2C TEST CONTROL & INITIALIZATION SEG 0026 
467 roe ; RETURN TO TEST VIA ADDRESS SUPPLIED BY TEST 
m2 o02e02e0 016537 oO00010 O1i61S6 ‘ > MOV RPC(RS), TESTAD 
43 Sosaee Sate € 
47, 000137 601466 07820 JIMP LOOPe 
473 08160 
aza aa se Bee00 ppozezeueness ~~ 
A . 8 « : 
32 888835 888888 gs EkAGR: -HSRB OB ‘BB INTER 
472 002036 00000 O8240 © TSCCNT: .WORD 0 ;PASCNT 
47 
4 O 010164 a TSTBL: TESTO ; TABLE OF TEST ADDRESSES sesseeessssssrssese 
481 OO2042 O10444 08340 TESTI 
482 011526 360 TESTe 
ues | BOBdSe Olagbe beso Testa 
| 
use oosbe2 o1ese4 4 TESTS 
486 O62054 177777 08440 -1 
iS sess 
485 08443 
490 O8444 
uae Seaae iSuTEST INIT ZES THE TEST ADDRESS POINTER 
493 os44 : EA tBet ® IN “INTEST’ 
434 OSY4R)-—s_ gg HERSRERE EERE 
495 08449 
oo20S6 SUTEST: 
497 O0020S&6 006337 016154 ASL INTEST 
498 002062 012700 go2040 MOV eTSTBL RO 
83 BRSBSs Be2599 Bigied MOV (RO) Teevan 
SOO 002076 O06e37 016154 ASR INTEST 
S01 O0e10e oosO06S 9O00004 CLR MFLAGS (RS) 
Beige S008: 
2) S85 {Be 009207 * ats PC 
503 08480 
504 0848s 
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CILAFA.F Li C3-JaN-"6 11:20 LINE CONTROL & INITIALIZATION 
ré 28598 .SBTTL LINE CONTROL 8&8 INITIALIZATION 
PRS 5 SHRSSHRHSETS Ez enc! P 
:TH CTION CCNTROL TION at GU NG 
at OF S1NGLE OR MULTIPLE Utes ba FES TH 
et? $ eeddcstees 
Sié 08600 
513 119 L INMON 
es 8 
00211 737 oc1000 001364 IT @NEWMOD , PCFLAG 
; 5 50 ilé B353> ape BEo s000e$ 
1 3 
ra $ TI LER : 
ele SOR ot ANETIBLAZETNGEREXAEE TTR Pre 
eh0 po Ley ; DEVICE ADDRESSES 8&8 VECTORS ETC. 
u' 3 
7 000040 290:364 T ,PCFLAG 
Pg} BBSiS2 887485 = em BES SOBb Sd 
S22 002130 004737 002332 JSR PC,GVL 
S23 134 737 o0e43e Tid 
130 4737 ssé 
— ~ s6004 
(3) O0el46 rege 
258 8 a T CTED L R AN 
ese Deseo : GET SELE Mae BRE it eth ' 
$30 poets O13 a 004370 016160 p44 iy nt ,» ONLIN 
233 002160 90353> atts 016162 MOV ONC ING NXTLIN 
$33 002166 S0004§: 
S34 O02166 O42737 OO1000 901364 gic SNEWMOD ,PCFLAG 
$35 Basic coo4%de soooss 
(3) 176 soo00es: , 
$36 03080 ; 
$37 09100 ; DO LINESEL SECTION FOR EACH DEVICE 
238 93120 ; TO BE TESTED. 
3c 176 OO4737 O02204 . JSR PC ,LINESEL 
S41 20e : 
S42 002202 So0000$: 
(3) O02e02 soo01$: 
2) O0ee0e 200207 RTS PC 
S43 09220 
Se 
svc peeeeeeeaeees 
$ ;LINESEL ROUTINE TO FURNISH THE IODRIVER WITH DVC POINTERS 
4 9 SSPE SRS ER EDS 
46 9320. 
S49 002204 LINESEL: 
ssc 09360 3 
222 33 ; MULTIPLE LINES UNDER TEST ” 
225 002204 932737 OCcO4O 001364 ‘ IT sr TL, PCFLAG 
9: O62212 30142 Q 50002 
ss4 ogo; 


sss OS46C : SET UP POINTER AREA WITH DATA FOR 
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Sac m) li O3-JAaN-7@ 11:20 LINE CONTROL §& iRbrracte ATION SEG 0030 
556 09480 =; THE NEXT DEVICE TO BE TESTED 

5s> o9so0_—C=é: 

558 062214 013737 016162 016:60 =< MOV NXTLIN, ONLIN 

2e0 33560 : RESET EVERYTHING IF AT THE END OF OUR DEVICE LIST 
S61 : 

Sbe o0222 3727 016160 177777 CMP ONLIN, #-1 
(9) O0ee idle . SNE 50003 

563 002 OSe7 7 000400 001364 BIS BLDONE , PCFLAG 

564 002 737 O00e33e ISR PC, GVL 

565 002244 004737 002432 ISR pC. TH 

566 2250 004737 O0es56 ISR 

567 254 000404 BR SeOSus 

i3 2 002256 a 500038: 

3) 09750 =; SET UP POINTER AREA FOR LINE = ‘ONLIN’. 

570 03780_—Cés; 

571 002256 004737 902432 ISR PC, MTW 

S72 OOeebe 004737 d0esse JSR PC; GNL 

573 O0e2e66 so004s: 

574 002266 000420 BR soo0ss 

(3) OGee70 soooes: 

575 270 004737 o024 JSR PC .MTW 

576 O02e74 932737 O00200 o16126 IT #SEL , OLFLAG 

(9) O02302 O01404 Q S000é$ 

577 09920; 

578 09940 ; CHECK TO SEE IF ALL DEVICES 

228 09960 : HAVE BEEN TESTED YET. SET LDONE FLAG. 

581 052737 co0400 001364 ’ BIS SL DONE , PCFLAG 

S82 O0e312 00406 50007 

(3) O02e3i4 Soo0es: 

264 iBoe0 : MAKE N TESTING A SINGLE 

Ses 10080 sé; DEVICE : "1,00 Es) SN'T F OROPPEL 

28s 19199 : BECAUSE EXC ecive RRORS. 

S88 002314 oS2737 OD0200 o16126 . BIS #SEL . DLFLAG 

589 O00e322 Ole7 decs4s MOV 8—20,R 

590 002226 104000 10180 TYPE 

591 002330 50007$: 

532 002330 50005$: 

593 002330 50000$: 

(2) + 002330 i$: 

‘2) 6002330 os00207 RTS PC 

234 10260 

sss 10e83 p PSS PSEEEEEEE 

536 103 GVL THIS ROUTINE FINDS A VALIO LINE FOR TESTING 
$37 10320 eee eee R SEES 

298 10340 

69S 002332 10360 GVvL: 

(4) QO02332 o10346 MOV R3,-(SP) 

600 002334 012703 016170 10380 MOV aL {NOO,R3 ;GET ADDR OF ,LINE TABLE 
60i 002340 S7i3 10400 «GIA: TST (R3) :LIN PRESENT 

60e O0es42 i004le ° 10420 BMI G10 :YES BRANCH 

653 902244 062703 coooic 10440 = GIB: ADS #10,R3 IPOINT TO OTHER WORD 
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CZLAFA.P1i 03-JAN-78 11:20 LINE CONTROL & INITIALIZATION 
604 350 7? 016770 19460 CMP RO. sTABEND ;END OF TAGLE ” 
605 354 13? 10480 BNE 1 [NO BRANCH per 
606 002356 le 020306 10500 GIC: MOV #£19,R0 sNOTIFY OPERATOR - NO LINES 
607 362 000 10520 TYPE 
608 364 1 001372 10540 IMP RESTRT 
609 902379 195713 10560 ~=«s« GID: TSTB (R3) i LINE SELECTED? — 
610 10580 : BPL G18 :NO TRY ANOTHER LINE 
611 002374 900006 10600 ADD 86, R3 :POINT TO OTHER WORD 
ble go2%00 B16160 10620 MOV (R3), ONLIN :GET DATA FROM TABLE 
61 16160 10640 ONL IA : 
614% OG2e410 105037 016161 10660 CLRB ONLIN¢1 
615 goe414 7 000174 10680 CLR SWL 
616 113737 016160 o00:74 10700 vB ONLIN, SWL INE 
6i7 O0e426 012603 MOV (SP)+,R3 
6i8 002430 000207 10740 RTS PC s EXIT 
619 10760) s_ ;, #ReReRER ER EE 
620 10780 ; MTW THIS ROUTINE TRANSFERS TABLE DATA TO THE WORK ARES 
621 10800 5 FES REREEEEES 
b2e 10820 
623 002432 10840 MT: 
(4) OOe432 010346 MOV R3,-(SP) 
624 002434 013703 016160 10860 MOV ONLIN,R3 ;GET LINE NO. 
62S 002440 062303 10880 ASL R3 
66 42 006303 10900 ASL R 
10920 ASL R ;X8 FOR OFFSET 
203 016170 10940 ADD #LINOO,R3 ADD IN BASE ADDR 
le 16126 10960 MTWi: MOV (R3)+, OLFLAG :GET FLAG WO 
630 12337 916139 10980 MOV (R3) +, DLADR :GET ADDRESS 
631 1 161 il y (R3)4; DLVEC :GET VECTOR 
632 O0C466 O11 16134 11020 MOV (R3) ,OLOTH :GET “OTHER WORD" 
633  e7e 1 37 016136 11040 MOV OL VCRXB 
634 161 11060 CRxB 
635 902506 137 016136 16140 11080 MOV OV DVCTXS 
636 14 16140" 11100 AOD a2 ovctx 
637 O0eS2e2 0137 016140 016142 11120 MOV pveTxS, DVCTXB 
638 002530 013737 0161 016144 11140 MOV OL VEC, tTxvEC ’ 
6 002536 737 16144 11160 ADD #4, TXVEC 
640 002544 0627 37 00002 O16i42 11180 ADD #2. DVCTXB 
641 O0e5S2 012603 MOV (SP) +, R3 
642 002554 000207 11220 RTS PC 
643 11240 5 ee 
644 11260 |; GNL THIS ROUTINE FINOS THE NEXT VALID LINE TO TEST 
4 11680 rtiiiii iii) 
647 002556 11320 =©GNL: > 
(4) 002556 519346 MOV R3,-(SP) 
648 002560 013703 016160 11340 MOV ONLIN, RB ;GET CURRENT LINE 
649 002564 905203 11360 INC R3 :CURRENT +1 
fe1 posese peso; i900 ac tCOR 
ese 58 908303 11420 ASL R3 x8 FOR OFFSET 
6S3 74 703 016170 11440 ADD @LINOO,R3 :ADD IN BASE ADOR OF TABLE 
6S4 005713 11460 = GNI: TST (R32) :LINE PRESENT? 
B= poseod Odee703 gocc10 tigen «one: «= «DDsC(ité«é RG ee eNT FO NEST LINE ENTR 
657 02610 900773 11520 BR GN’ :CHECK NEXT 


CZLAF AO “= TERM TST 
cSLara.P 


666 002644 

(4) 44 2 
667 46 ¢ 
668 SO Ole?3: 
663 O00e656 900772 
670 
623 

‘é 
673 

Pike! 

zs 
67& 302660 

78 


002660 006337 
002664 

002670 006337 
002674 062737 


689 


on 


NN See eos ~ be Ne a 
Feet it tt ee rr het w i 

NNN 
= 

gz 
NNN 
WNN 
NNN 


2 032737 
02770 001403 
O0e772 042777 
053000 


33.0500 

Ag wre 
vu 
AU 
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004776 
004776 
004776 
016170 


100000 
oosioc 


ooocc4 


bone 3? 
000007 
002020 


ocooic 
ocdec0 


0iéibe 


004776 


002066 


o00s002 


3 
004776 
001370 


ooso0e2 
00177& 
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11540 = GN3: TSTB (R3) ;LINE SELECTED” 
11560 BPL GNe 'NO TRY ANOTHER 
11580 CMP (R3), #1 :END 0 OF pa nere” 
11600 BEQ GN RANCH 
11620 ADD #6, R3 : GET =oRnER WORD 
1164 MOV (R3) NXTLIN ‘ 
1166 Swa NXTLIN = NEXT AVAILABLE LINE 
il CLR NXTLIN@1 
11700 GN4: 
MOV (SP)4+,R3 
11720 RTS P - EXIT 
11740 = =GNS: MOV @-1,NXTLIN :SET NXTLIN TO -1 - NO 
11760 pe GN4Y 
11780 
118 
1182 ; PSRRSE SEER ES 
11840  ;UPDATE ROUTINE TO UPDATE INTERFACE TABLE FROM COMMANDS 
11868 s FRSRESESEESS 
11880 
UPDATE: 
11902 ; SHIFT THE CONVERTED LINE NO. FOR AN 
11904  ; OFFSET TO THE LINE TABLE. 
119C6 Ss; 
ASL DATA 
A BATA 
ASL DATA 
11930 ; ADD IN THE BASE AODRESS | OF THE TABLE. 
seeae ADO @LINOO, DAT 
11980 ; IF THE L LECTED DOESN'T EXIST - 
12000 ; SENO AN ERROR RESSAGE: 
le02e0_:—C; 
git P,aDATA 
oon PC. SELERR 
BR 50003$ 
— scooes: 
12120 ; ADDING A LINE SETS IT’S “SELECTED” FLAG 
12140 : AND CLEARS OUT THE ERROR COUNT FOR THAT LINE 
BIT BADOC , TEMPF 
BEG so004$ 


Bte eAB0!817,0 aDATA 
AD 


0 
nove 3047, CINENO 
SOO04S: 
12300; 


12360 : DROPPING A LINE JUST RESETS IT'S “SELECTED” FLAG 
' BIT sOROPC , TEMPF 


50 
sSEL ,aDATA 
sooces: 


‘a 


HOS 
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70& 003000 So00ss: 
20° 903000 50003$: : 
> 3 005037 004776 CLR DATA 
708 903004 500003: 

3) 303904 500018: ‘ 
(2) 603004 sDG207 RTS PC 
710 12480 

ii 12500 


I03 ’ 
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713 12540 .SBTTL SWITCH REGISTER ROUTINES . 

7i4 12560 5 RRR EEE EE EE HH 

71 12580 ;SWRTST TESTS FCR HARDWARE SWITCH REGISTER 

716 12600 Mwrrrtri triste} 

sid pRgame Big7a poses Bele! isesp | CMATST: Ry Seat o nacrerse SoU Mn mae ro” 

213 903062 .005777 013076 12660 rst aSWR * sACCESS SWITCH REG. 

cel 90:30:30 ogs39 177570 016124 12700 HOV 8177570, SUR ;RETAIN HARDWARE POINTER 

723 Bo3b6 012737 O00176 016124 12740 4S: MOV aSSWR, SWR :SU FOR SOFTWARE SWITCH PEG. 

? 003046 022626 12760 ISP2 :CLEAN THE STACK 

725 3050 Ole737 oooc0de oo0004 12780 6S: MOV #& MACHER !RESET TRAP CATCHER 

726 3056 005037 ococdS 12800 CLR MACHER+2 

727 003062 000207 12820 RTS PC sEXIT 

728 12840 

72g 12860 p EEERREREEE ES 

730 12880 ; CTLGX THIS ROUTINE PRINTS THE PROGRAM CONTROL FLAGS ON THE CONSOLE. 

731 12900 , REESE EES EES 

2 12920 

733 003064 CTLGX: 

734 003064 013746 001364 MOV - PCFLAG,-(SP) 

73S 003070 Ol2746 o00006 MOV #6,-(SP) 

736 003074 Ole 020230 MOV eSti+11..-(SP) 

737 003100 004737 007566 JSR Pc, oeast 

003104 142737 OO00006 o20226 BICB #6 SW+il 

739 003112 012700 020215 MOV #Siv, RO 

7 003116 303000 13080 TYPE 

741 003120 012700 017730 MOV #i.1,RO0 

742 003124 104000 13120 TYPE 

(3) BOstSE Baa 

(2) O031le&8 o00207 RTS PC 

744 13160 

745 13180 5 PHERREREE SEH 

746 13200 ;GETSWS THIS ROUTINE READS THE SWITCH REGISTER AND 

747 13220; CONVERTS THE DATA TO THE APPROPRIATE CONTROL 

748 132040 =; FLAGS OR POINTERS. 

749 13260 j REPRE SERRE ES 

750 x 13280 

ra¥ 002130 ‘ae GETSWS: 

ia > 13340 : STOP HERE FOR OPERATOR TO ENTER CONTROL SWITCHES 

755 002130 oo00000 13380 ° HALT 

758 093132 017737 O12766 016100 ae MOV aSWR, TEMP 

758 13440 =; IF SWITCHES INDICATE A SINGLE LINE OR A SINGLE TEST 

23 13460 ; 10 BE DONE STOP 50 OPERATOR CAN ENTER LINE’ TEST DATA 

76i 003140 932737 000100 016100 ; BIT #SEGQ, TEMP 

‘B) OO3146 14 BEO S000es 

‘6) 903150 032737 o0004n o16100 BIT aMULTI, TEMP 

‘9; 003156 O01016 BNE 50003$ 

£6) 003160 socoes: 

762 003160 op0000 13520 HALT 


JO3 
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763 003162 017737 012736 016102 MOV JSWR, TEMP+2 
764 003170 7 001366 CLR TESTNO 
765 003174 3737 016102 001366 MOVB TEMP+2, TESTNO 
coB g03e02 ? 901376 CLR L 
? 113737 616103 001370 MOVB TEMP+3,LINENO 
oeg ig 37 000100 016100 a ae SEQ, TEMP 
¢ 
S) REE Bix 68g 
24 052737 O00100 001364 BIS #SEQ, PCFLAG 
771 O03e32 005037 001366 CLR TESTNO 
772 003238 000403 BR soooss 
(3) OO Sooo4s: 
773 003240 042737 000100 001364 ~~ BIC #SEQ, PCFLAG 
aN 003246 wen soooss: 
776 O00324% 032737 O00040 016100 BIT sMULTI, TEMP 
<3) 003254 901406 BEG 50 
777 003256 052737 000040 001364 BIS #MULTI,PCFLAG 
778 003264 005037 001370 CLR LINENO 
779 003270 000403 BR 50007$ ‘ 
(3) 003272 soooes: 
780 003272 042737 O00040 001364 BIC #MULTI,PCFLAG; 
781 003300 ae 50007$: ; 
783 003300 052737 003200 001364 aie BIS BATTN! #NEWMOD! aNEWTST,PCFLAG 
785 003306 042737 174037 001364 BIC #174037, PCFLAG 
786 003314 042737 003777 016:00 BIC #3777, TEMP 
787 OO3322 053737 016100 001364 BIS TEMP, PCFLAG 
788 003330 sooo0os: 
(3) 003330 50001: 
(2) 903235 cooecy RTS PC 


783 14100 
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; CONSON-- ROUTINE TO INITIALIZE CONSOLE VEC"OR AREA 
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TINES 


-SBTTL CONSOLE TERMINAL ROUTINES 
ritiiiiiii. 


erertiriri ts 


CONSON: 


MOV 
MOV 
RTS 


ptt? eet 


GETSRC 


GETSRC: 


TYPE 
S00des: 


SO004s: 


50003$: 


soooss: 
eoRoe: 
SOCO1$: 


RTS 


 eeeeeneeenee 


#READKB, aaTKV 
#101, ,aatks 


THIS ROUTINE ASKS THE OPERATOR _IF HE/SHE 
ATS TO USE CONSOLE CONTROL. THEN SETS — 


WANT 
A CONTROL FLAG ACCORDINGLY. 


aPTR 
sCTLM,RO 
#1,a8TKS 
@READY ,adaeTKS 


5 
geTke aPTR 
ECHO 


acl R 
PE 


aPTR 
S0003$ 
S000e$ 


#200, JPTR 
SER we N 
soo00s$ 

SWR, #SSWR 
5000ss 
@SWCTL,PCFLAG 


PC 


; INTERRUPT TO “READKB” 


LOS 
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CZLAFA. O3-JAN-78 11:20 CONSOLE TERMINAL ROUTINES S&% 0037 
7 : 15540 5 REE HH 
856 . 15560 READKB THIS MODULE IS AN INTERRUPT HANDLER 
829 : 15580 FOR THE CONSOLE TERMINAL. 
830 15600 wittiiiiiitt 
831 : 15620 
832 o003466 ; READKB: 
833 003466 O100% © aes MOV RO,-(SP) 
. 1 : GET CHAR FROM KEYBOARD BUFFER REG. 
: 1eee0 ; gE aR PARITY att #P ep, § 

4 470 013737 177 — MOV asTKB, ROSAV 

sie 
639 88 476 143535 b65386 5 377 aan BICB #200, abeay 
841 E 15685 ; CHECK FOR DEVICE ERROR 
B45 04 737 1po000 o037% 3 7 8MERR, RDSAV 

ee 
(9) eae B87405 BAG 5000e$ 
844 003514: 004737 oDS0b2 JSR PC. CMDERR 
84S 003520 005037 177560 CLR aatks 
846 003524 000516 BR 50003$ 
(3) 003526 so00es: . 
847 18715; - 
848 15720 ; IF CMD CHAR WAS A CTL-G DO THE CTLGX ROUTINE. 
B49 15725 : PRINT OUT PCFLAGS ON CONSOLE. 
851 003526 123727 003776 000007 , CMPB RDSAV, #CTLG 
(9) CO3534 001006 BNE oo4$ 
852 003536 004737 003064 JSR PC, CTLGX 
853 903542 012700 017730 MOV #L1,RO 
854 003546 104000 15750 TYPE 
855 003550 0600504 BR soooss 
£3) 003552 a. SO004S: 
4 15752 : IF IN 170 MODE PUT DATA IN 1/0 BUFFER 
859 0035S2 032737 O00002 001364 ’ BIT sFLace, PCFLAG 
geo DOSeEe sean 003776 ROY SAY Ri) 
861 o527 004000 001364 S or TAIN, PCFLAG 
B62 poses8 005037 007564 BR i 
863 003600 000470 BR OF OOyS 
(3) 003602 sti so006S: 
Bes 1877 tIF IN mMAND PUT DATA IN INBUF 

6 15778 AND CALL INTERPRI TER 

Bee 32737 000001 001364 ehh = T F ,PCFLAG 

& 
(8) Ob 3615 601986 | Bea OS Bute 
869 O036i2 1137 003776 012344 MOVB aPTR 
ert puseet BBwaz ovo0d as” Ebafth 

ee 
£3) SO seSe ost 50010S: . 
873 15797 ; CLEAR AND GO TO READY STATE. 


874 15798 Sy 


MO3 


( ) J 0 AGE 1-21 . 
ESLRER OL TI® TBST SAR 70 THTSh* FOR 1°5° oRBoLE TERMINAL. RouTt fs! SEG 0036 
875 OC 3727 003776 000003 MPB V, @CTLC 
(9) weet ety bs 3 NE Boat Ss 
876 003636 904737 001372 JSR PC, RESrRT 
877 O03642 000447 BR 
(3) 003644 wanes 50012$: 
875 15812 : CHECK FOR PRINT REPORTS COMMAND 
44 3727 003776 oo0020 ‘ MPB Vv, aCTLP 
eg} 3 ABibo4 Ne | Sbbi4S 
882 003654 042737 Oe20000 001364 BIC SINHRPT, PCFLAG 
883 003662 000437 R 50015$ 
(3) 003664 aie, 50014S: 
Bae ; z : CHECK FOR NO REPORTS COMMAND 
003664 123727 003776 o00016 ; CMPB RDSAV, #CTLN 
see COsE sa pe399 020000 001364 Be S001 PCFLAG 
889 pB542> r 50017$ 
(3) 003704 S0016S: 
830 ise41—s;yx 
Bai 15842 : CHECK FOR HALT ON ERROR COMMAND 
893 00 123727 003776 000010 : CMPB ROSAV, sCTLH 
gay eat p01007 100000 001364 Be #HAL TOE, PCFLAG 
89S 003722 000417 BR mec! Te. : 
(3) 003724 S0020S: 
836 1sese:CiéC; 
897 15857 ; CHECK FOR LOOP ON ERROR COMMAND 
839 0037 a5 7064 003776 000014 ; MPB Vv. @CTLL 
900 003734 737 O40000 001364 BIS BLOOPOE , PCFLAG 
901 003742 000407 BR 50023$ 
(3) 003744 sit. 50022: 
303 1587¢ ; CHECK FOR CLEAR COMMAND 
3744 123727 003776 000013 ; MPB Vv, #CTLK 
235 752 b5 7003 NE ep Bey 
906 003754 042737 140000 001364 BIC #HAL TOE! #L OOPOE , PCFLAG 
907 003762 S0024S 
908 003762 pO0e3s 
a0 0017 
313 Br cops 
91 7 1 
913 003762 500115: 
914 003762 50007$: 
815 003762 BOOOSS: 
| Samba — 
918 15940 3; TURN CONSOLE BACK ON 8 EXIT. 
919 iss4s”; 


NO3 
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012737 000101 177560 MOV #101,a8TKS 
921 003770 012600 MOV (SP)+,RO 
See 00377e O00002e 15960 RTI 3 
1} ot ely S0000$: 
(3) 003774 50001: 
(2) 003774 9000207 RTS PC 
324 16580 
9eS 003776 000000 16600 RDSAV: .WORD O 


CZLAFAO es TERM iT 
CZLAFA.P1 


z 


Rae 


PRPPLOPRRR OAS 


eres 


w 


00-0 
NNN a 
wre 


Sr 
Pieeesaaarge? 
SERSLBSELRNTS 


9004900 


TENROTS 


03-JAN- 


00472 

123727 
001007 
005037 
005037 
012737 
9900417 


MACY11 30A‘10S2) 


11:20 


003776 
tay 
ooS044 
017051 


000001 


O00SO004 
016114 
017603 


003776 
016114 
017730 


003776 
017730 


004230 
16114 


009033 
012146 


oo0s00e 


016166 
016164 


900015 


000121 


0i61Se 
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16640 Hah 5-4 balalad-t-boteh bette 
16660 CSI COMMAND STRING INTERPRETER 
16680 : peEeRRRREREEREY 
16700 
CSI: 
16740 ; 
16760 ; IF CMD CHHR IS AN ESCAPE ECHO A 'S' 
16780 ; AND SET MODE BACK TO QO. 
16800 =; 
CMPB RDSAV, #ESC 
BNE o002$ 
MOVB #’S, oPTR 
JSR PC, ECHO 
MOV #L3,RO 
16900 TYPE 
eaten BIC 8FLAG1, TEMPF 
17120 : MOVE NEW CONTROL FLAGS TO THE PCFLAG WORD. 
17140 : RESET THE BUFFER POINTER. 
MOV TEMPF , PCFLAG 
mov TEMPT: T STNO 
17235 CLEAR aI NeUT ONT FLAGS FROM TEMPF 
arc #17603, TEMPF 
17260 
BR 50003$ 
4 so002s: 
17390 ; 
17720 ; IF_CMD CHAR WAS A DELETE RESET THE BUFFER 
17-40 ; POINTER AND ECHO A CR/LF 
v4 CMPB V, DEL 
BNE aa | 
MOV aTheur PTR 
MOV RO’ 
17440 TYPE 
BR senees 
SOOO4S: 
17480— oi; 
17500 ; IF CMD CHAR WAS A RETURN ECHO A CR/LF 
17520 ; AND CALL THE DECODER 
17540 $ 
CMPB RDSAV, #CR 
BNE 50006$ 
MOV #L1,RO 
17600 T 


Y 
JSR PC ,DECODE 
CMPB INBUF . #°O 


BNE 50007$ 
CLR TESTNO 
CLR TEMPT 
OV #1,NEXT 
S0007$: 
500108 


Scooes: 


SEG 0046 


CO4Y 
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928 12898 : IF CMD CHAR WAS A °?* RETYPE THE COMMAND 
978 17840 : SUMMARY & GO 70 READY CONDITION. 
$a0 904170 123727 003776 oooo77 1 CMPB = sROSAV, 8"? 
289 Bo4i se b5 7685 BNE 50011$ 
981 oo%e2 012700 017103 MOV #COMSUM, RO ; 
38¢ 04000 17920 TYPE 
te 020122 MOV #RDY, RO 
384 2l2 104000 17960 TYPE : 
98S 004214 o00404 BR 50012$ 
(3) OO04216 50011S: 
986 1g8000_—sé'; 
987 18020 }; ECHO THE INPUT CHARACTER. 
988 18040 ; 
989 004216 004737 oDSs044 ISR PC ECHO 
9390 OO42ee 350S2e37 O1bi64 INC PTR 
991 004226 50012$: 
992 004226 50010$ 
933 004226 5 : 
994% 004226 50003$: 
99S 004226 50000$: 
(3) O04226 50001$: 
(2) OO%226 ooce207 RTS PC 
396 1822 
99° 1624 
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1 peer eneaeaes 
; DECUDE THIS SECTION DECODES THE COMMAND STRING FROM THE 
CONSO SETS THE APPROPPIATE CONTROL FALGS. 


3 


18390 : peesseesanes 
6 


SepaaeEES 
é 
8 


1 
i 
1 DECODE: 
1 18400 
i 1 MOV RO,-(SP) 
1 Ooie3e 61 MOV Res =( ©) 
1 1 MOV Re’ -(SP) 
1003 gocese Gieros olgte my SEILER 
iB Boseu6 Bisse; BTeeFs mov SRGUPCAS 
101 so0ces: 
1013 18560; ; 
1014 18580 ; COMPARE CHAR IN TO FIRST BYTE OF TABLE 
ipis € ieéil! _— : CMPB (R1),(ROj 
ce Bowes A6t148 aa BNE 50004 
1018 18660 : IF SAME GET FLAGS FROM THE TABLE TO TEMPF 
1Se6 ogies 116037 000001 25008 : it atRB): Decsav 
i ? ¢ )* TEMPF 
idge Godere Giesar Sooo, O08 BIE are 
ides 004304 005037 oOOsc00 a CLR DATA2 
i8 =e 18620 ; SEE IF THIS COMMAND REQUIRES ADDITIONAL DATA 
C2 i ; 
1028 004310 737 000340 004774 BIT DECSAV 
1029 OO ase bs 00000: oo00is : acR 
6} BEEEC bstbbe . re Asada 
1030 18900_—é=; ° 
1838 18920 : DATA REQUIRED BUT NOT PRESENT... .ERROR 
i 004330 004737 905062 : JSR PC, CMDERR 
1034 16980 3 
183 13008 ; IF @ OR D COMMAND USE DATA FOR LINE NO. 
i 004334 012737 O16114 o16164 , MOV #INBUF ,PTR 
1038 004342 s00SoS BR 500078 
1933 004344 soooes: 
18a i 1 $ CONVERT THE CHARS TO OCTAL...DATA 
toe 0127 776 pang Vv P 

] 
iS Botgeo T1ET32 BGG, pour MNCs 
i 7 0001 CMP 1) 
1948 Dou3ee > “ 000001 moe alot ) 

Vv 

Pe Bee be coin, BA 
1047 004374 116137 oO00002 o04777 * move 2(R1), DATA+ 
1046 CON4O2 126127 O00003 d00cI5 CMPB (RL). @cR 


EO4 
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" 3-JAN-78 CONSOLE TERMINAL ROUTINES 
(9) 41 1003 BNE 500123 
i049 Boat ae 46 oo000c0e MOV ee. -(SP) 
1080 418 oo040S — BR 50013$ 
(3) $ 
1051 420 11g 37 000903 ocsooo MOVB 3(R1),0ATA2 
1052 26 Ol1e74%— 000003 MOV #3,-(5P) 
1053 OowN3e 50013$: 
iBee 435 012746 004776 Oe a BOATA, -(SP) 

¢ =i 

1058 Bea 3 passé 007676 aw JSR PC, AeBIN 

‘ : 
1058 19460 ; IF R COMMAND USE DATA AS A TEST NO. 
1059 19480—sé; ; 
1060 oo444e 121027 ocol22 CMPB (RO), #°R 
(9) 604446 O0:020 _ BNE 50014 
1061 i9s20_—Sés; 
1062 13540 : CHECK THE LIMITS FOR VALID TEST NO. 
1064 19580 eeeeeeeeee @S BELOW IS HIGHEST TEST NO THIS DIAGNOSTIC #eseeeesee 
1065 OO44SO 005737 004776 TST TA 
(8) oo44s4 o02404 BLT SO01SS 
(6) COWve6 023727 004776 900005 CMP DATA, aS 
(9) 464 003403 BLE 50016$ 
(6) OO4466 50015S: 
1966 OO4466 004737 005100 ISR PC, SELERR 
1067 19640 ; 
i068 19660 ; OUT OF RANGE ERROR. 
1069 19680 sé; 
1070 o0447e 900403 SR 500178 
(3) QOO4474 * S0016S: 
1071 OO4474 013737 004776 ocEes004 MOV DATA, TEMPT 
1072 o04s02 50017: 
107 Oo450e 052737 190000 oo0s000 BIS @MERR , DATA2 
107% 515 caane 50014S: 
in7y 19820 : IF W COMMAND USE DATA AS WIDTH 
1076 004510 121027 Goole? , CMPB (RO), 8° 
ate 004514 901005 eons BNE sooeds 
ie 19309 : GO CHECK FOR VALID LIMITS ON WIDTH ENTRY. 
1082 OO4SI1& 904737 ooso0s . ISR PC, CHKW 
1083 04522 9562737 100000 ocosoco BIS aMtRR, DATA2 
1088 004530 . so020s: ‘ 
1086 29029 : IF ADDING OR DROPING A LINE CALL UPDATE ROUTINE 
1988 OO4S30 121027 9000101 : CMPB (RO), #°A 
(8) 004534 601403 BEO sooels 
‘e) 904536 121027 oo0104 CMPB (RO), @°D 
(9) 42 001905 BNE s50022$ 
‘6&) oo4s44 so0021s: 
1989 20080 SCs; 
1096 20100 ; TAKE LINE NO. AND UPDATE INTERFACE TABLE 
i109: 20120 —SCé; 


a 


FO 


eee ee ae TERM TST MACY11 30A. 1052) 03-JAN-77 Ol PAGE 1-27 
we : 


00: 
CONSOLE TERMINAL ROUTINES 


LAFA. 03-JAN-78 11:20 

; 44 737 ° 0026 R PC, UPDAT 

103s BONecg Beese> 988888 coso0e afc antRR, DATAZ 

i094 o04556 s002e2$: 

1095 QOwsse 50007: 

1096 5 c00403 scnnee BR 50023$ 

(3) : 

1937 052737 100000 ocos000 eenees BIS aMERR , DATA2 

i099 000415 BR so0e4s 

oS) Bouese so004s: 

: 190 004578 062750 o0000€ pe ADD #6,RO 

1102 20340 ; IF _THE CHAR IN DOESN’T COMPARE TO ANY P 

1103 20360 : TABLE ENTRY THE COMMAND IS INVALID . 
a] ; 

1105S 004S74 O20027 004774 CMP RO, SOTEND 

‘$) 04600 901910 BNE sobess 

1106 004602 004737 oDSobe ISR PC, CMDERR 

1107 OO4606 012737 016114 016164 MOV sINBUF PTR 

1108 004614 9052737 100000 905000 BIS aMERR, DATA2 

1109 904622 500258: 

1119 O0462e 50024: 

tiie 0255 } KEEP LOOKING AT CHAR UNTIL IT'S 

4 ; 

tits cpeee ; SECODED. OR END OF TABLE ‘(ERROR:. 

i1iS o0%622 032737 100000 oDs000 . BIT SMERR, DATA2 

(5) 004630 001001 BNE 50003$ 

1116 004632 000607 BR 5000e2$ 

(3) 004634 50003: 

111? 34 005037 oDS000 CL9 DATAR2 

1118 20660 ; 

1149 20680 : RESET THE INPUT BUFFER POINTER 

s ; 

1121 OO4%64O 012737 016114 016164 MOV SINBUF ,PTR 

liege OOW646 012602 MOV (SP)+,Re 

1123 OO46S0 O12601 MOV (SP)+°R1 

1124 O04652 Ol26 MOV (SP)+'RO 

11eS OO46S4 Soooos: 

(3) go4es4 500015: 

{82 004654 000207 coal RTS PC 

ile? , 20840 :# ee RRP eR eR ER eRe eR eR eee Eee 

l!e8 Sb 23 ooc 20860 46s HECTBL: .BYT § 0 :DECODE TABLE 

i129 60 001200 o00040 20880 . WO ATTN! NEWMOD, MULTI 

1130 004664 001248 000 20900 "BYTE amo, open t sFIRST - CHAR TO BE DECODED 

1133 Bowess CO4E39 00808 soaq0 ‘Bye G0 ' ;SECOND - CONTROL BITS 

1133 004674 000300 000000 20960 "WORD ATTN!SEQ,O 

1134 004700 lee 200 20980 BYTE "R20 ;THIRD - SET MASK 

113s 702 000100 1000 . WOR’ ATTN. SEQ 

1136 706 104 100 21020 "BYTE °D,100 :FOURTH - CLEAR MAS 

1137 710 o02010 4 21040 [WORD OROPC!NEWTST,ADDC 

1138 004714 101 100 21060 "BYT y 0 

11339 904716 002004 oD0010 21080 "WORG. ADOC! NEWTST, DROPC 

1146 904722 124 00 21100 BYTE ‘T,O ;CONTROL BITS: 
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xs Or Ae ll O03-JAN-78 11:20 CONSOLE TERMINAL dour ines 

i141 004724 010009 000000 21120 WORD PRINTT,O 

i142 004730 oe 114 000 e140 - BYTE bs ‘ 

00 7 ’ y . 
tiga Boy? ett: eet 51180 ‘Evie | "H.O :S = GET WI0TH 
1145 904740 100000 000000 21200 - WOR HALTOE,O ane 
1i4S Bbusue ce0dd8 00005 $1540 oORD INA patentee 
114 ous P| 124 WOk INHRPT,O at pias 
1148 120 000 21260 ‘BYTE ‘P.O :7 = GEN TEST NO. 
1123 Bowseo eae $1360 yore tiene 
1151 5eS ooo 140000 1320 “WORD 0, HALTOE!LOOPOE 
1152 004766 127 040 000 21340 ‘BYTE ‘wW,40,0,0,0,0 
ones 771 000 000 000 : —_ 

; ties 774 5138 ay BeeCAY: WORD O 
1138 Bden08 Spd0ne ctiso opatad: “WORD OO 
1157 5 ea gtiso OENe : .WORD O : TEMPORARY PCFLAG WORD 
1158 905004 o9p0000° 21460 TEMPT: .WORD 0 : TEMPORARY TEST NO. 
1.59 21480 
1169 21500 
1161 21520 
llbe 21S40 j FP RSE ERE E EE 
1163 21560 CHKW THIS ROUTINE VALIDATES A “W" COMMAND 
1164 21580 ereritiiiiis 
1165 21600 
1166 GoOSode CHKW: 
1167 21621 ; 
1168 gibee : RANGE OF 26 THRU 132 CHARACTERS IS VALID 
1170 OO0S006 623727 004776 ocDD003e ’ CMP DATA, #32 
(Bs ie 35393 004776 o00204 ete ATA, #132 
(9) ppense 853483 BLE 0003$ 
(6) O0S026 s0002s: 
1171 005026 004737 005100 ISR PC, SELERR 
a £4 postae 000403 ees BR sobo4s 
1173 ppep34 013737 004776 016146 MOV DATA, WIDTH 
1174 905042 S50004S: 
1175 o0504e 50000$: 
3) ooso4e es sooo1s: 
(2) O0S5042 oco5207 RTS PC 
1176 21760 
i1?7? 21780 


HOY 
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CZLAFA.P1i O3-JAN-"8 11:20 CONSOLE TERMINAL ROUTINES 


i}28 $1868 j RRPRSREREEES 

iis ?ECHO CONSOLE KEYBOARD ECHO ROUTINE; PTR HAS ADOR OF CHAar 
118! 21860 5 REESE PEEE EE 

1182 21880 

1183 9050 108737 177564 21900 ECHO: TSTB aeTPs 

1184 O0S0S0 190375 21920 BPL ECHO a 

1185 o0S0Se 117737 OGilld&é i77S56&6 21940 MOVb aPTR,aatr3 

1188 oosoeo od0Ce207 $1388 RTS PC 
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eScara. 4l 03-JAN-78 11:20 ERROR & REPORT ROUTINES SEG 0047 
i183 22020 .SBTTL ERROR & REPORT ROUTINES 
11936 22040 wittiiiitiit) 
1191 22060 ;CMDERR ROUTINE TO HANDLE INVALID CONNANDS 
1192 22080 etritiiiiite 
1193 22100 
1194 QO0S06e CMDERR: 
119S oO0S06e O1e700 Gedti7 a MOV #ER1,RO 
1196 005066 104000 22166 TYPE 
1197 005070 Ole70G 020123 MOV @RDY,RO 
1198 005074 104000 22200 TYPE : 
i199 00S076 S0000$: 
(3) 005076 50001$: 
(2) O0O0S076 d00207 RTS PC 
1200 22240 5 PRES EEE 
120i 22260 : SELERR ROUTINE TO HANDLE SELECTION ERROR 
120e ee280 errreri tite. 
1203 22300 
120% 005100 SELERR: 
1205 005100 O12700 Od20032 MOV sERe,RO 
1206 005104 10400 22360 TYPE 
1207 005106 Oie700 O20123 z MOV @ROY,RGO 
1208 OO0Sile 104000 22400 TYPE 
1209 O0OS114% O12737 O16114 S5isbib4 MOV @INGUF ,PTR 
i210 OOSiee2 S5o0000$: . 
(3) O0Siee2 So0001$: 
_f@) OOSiee o0Ge07 RTS PC 
izii 22460 ‘ 
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ete 55-Jan-78 11:20 ERROR & REPOR ROUTINES 


j RRS REEEE EERE 
;ERRORS ERROR LOGGER AND TYPEOUT ROUTINE 


wrrtiiiiti tt 


ERROR: 
005037 o6S434 CLR ERRSAV 
737 64 BIT @INHRPT,PCFLAG 
O3e737 Se0000 0013 BNE oa Nes 


baa 
DD 


fh 


he he hh he eee ee OT 
fufurufurufurufulfutu — furufufurufufuoru 


he ee 
PRE wMH Ow 


CONVERT TEST NO. FOR OUTPUT 
016154 , MOV INTEST, -(SP) 
MOV #2,-(SP) 
#ERO+16.,-(SP) 
PC, O2ASC 


CONVERT ERROR NO. FOR OUTPUT 


434 MOVB CFLAGS, ERRSAV 
— MOV ERRSAV, -(SP) 


MOV 
MOV +7 .-( SP) 
JSR PC, 02Asc 


‘CONVERT LINE NO. FOR OUTPUT 


016160 MOV ONLIN, -(SP) 
00000e 


Ow VON Love owe Vor Es 


pet ee 
B 
e 


020011 
007566 
D17761 
? CLEAR THE ERROR FLAG 


100377 002032 BIC #MERRN, CFLAGS 
> GET THE POINTER SUPPLIED BY THE PROGRAM 


yyy 


furufuru 
UWI £ 
Owon 


Bee eES 


AND PRINT THE ERROR DESCRIPTION MSG. 
013700 002034 MOV TSCPTR,RO 
TYPE 


104000 
so000es: 
005037 005434 CLR ERRSAV 


: UPDATE THE ERROR COUNT FOR THE FAILING LINE 
013737 016160 005434 c v ONLIN, ERRSAV 
006337 005434 ERRSAYV 
005434 RRSAV 
Bie170 005434 aC NOD 
005277 o00124 Cc JERRSAY 
:IF LOOP ON ERROR IS SET , MAKE THE 


rr 
a) 
0 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


PITTS 


ERRSAV 


be 
rorrn- - 
roo 
WtwWw 
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CZLAFA.P O03-JAN-78 11:20 _ €RROR & REPORT ROUTINES SEG 0049 
1266 23380 ; RETURN ADDRESS OF THE TEST OOD. 
1267 23400 ; THE TEST CONTROLLER WILL USE THE OLD 
1268 e320 ; RPC TO RE-DO THE SUBT EST 
1@70 905310 032737 O40000 061364 BIT #LOOPOE, PCFLAG 
(3) 005316 001403 BEQ 
1271 005320 OS276S5 00000: 900010 BIS #BITO,RPCCRS) 
1272 005326 50003$: 
1273 23520 —=Co; 
1274 23540 ; SEE IF LINE ABORT FLAG IS SET 
1275 23560 =; 
1276 005326 032777 o00020 000100 BIT 8ABO, DERRSAV 
(9) 005334 001431 BEQ 50004S 
1277 23600; 
1278 23620 486; IF ABORT IS SET DESELECT THE LINE 
1273 g3640 : UNLESS IT’S THE ONLY ONE BEING TESTED 
1281 005336 032737 O00040 001364 BIT MULTI ,PCFLAG 
(9) 005344 001417 BEQ 5000 
1282 005346 042777 000377 oOD0060 BIC @SEL ! #177, JERRSAV 
1283 005354 013746 016160 MOV ONLIN, -(SP) 
1284 012746 o00002 MOV #2, -($P) 
128S 005364 012746 020270 MOV #OR1, -(SP) 
1286 005370 004737 007566 ee JSR PC, O2ASC 
1288 23860 : NOTIFY OPERATOR THAT LINE WAS DROPPED 
1290 005374 012700 o20242 : MOV #DRO, RO 
1e31 005400 104000 23880 TYPE 
1293 23920 ; IF TESTING ONLY ONE LINE DONOT ALLOW IT TO BE DESELECTED 
1234 Oos4O2 ooo406 aeons BR SOo0es 
1295S 005404 052777 oO00200 o20022 BIS #SEL, DERRSAV 
1296 005412 042777 OO00eC O00014 BIC #ABO; JERRSAV 
1297 005420 SOO0ES: 
1298 005420 sou 50004S: 
1300 e060 } HALT HERE IF HALT ON ERROR IS SET 
1302 OO0S420 032737 100000 001364 . BIT SHAL TOE , PCFLAG 
(9) 005426 001401 BEQ 50097 
1303 005430 900000 24120 HALT 
1304 0O0OS4 50007$: 
1305 005432 50000$: 
(3) O0S43e2 Sooo0is: 
Se) 005432 000207 naaae QTs PC 
1307 005434 000000 e200 ERRSAV: .WORD 0 
1309 24240 5 SHKKAAARKEAHRAAASLAASSAEKSSHALAKAAA LALLA LAALAAEAAKELERE FLERE REE 
1310 24260 ; REPORT THIS ROUTINE HANDLES END OF TEST AND 
1311 24280 END OF PASS REPORTS. 
l3le 24300 Perit itiiititititittitiiitiiiititiititiiiiiitiiir ier otters 
1313 24320 
1314 005436 REPORT: 
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CZLAFA.P11 03-JAN-78 11:20 ERROR & REPORT ROUTINES SEG 0OSO 
i315 2434S ; CHECK FOR END OF TEST CONDITION 
1316 24350—Ssé; 
1317 005436 032737 o40000 002032 BIT sEOT, CFLAGS , ‘ 
(9) OOS444 O01423 . BEG so002$ 
1318 24365~—sés; 
1319 24370 ; CONVERT TEST NO. FOR OUTPUT . 
1320 24375—; 
1321 OOS446 013746 016154 MOV INTEST,-(SP) 
1322 O0S4Se Ole746 O00002 MOV #2,-(SP) 
1323 005456 012e746 020210 MOV sEOTM+18.,-(SP) | 
1324 00S462 004737 007566 cain JSR PC, O2ASC ‘> 
1352 54450 =: SEND END OF TEST MESSAGE 
1327 D0S466 042737 O40000 002032 nate BIC #EOT, CFLAGS 
1358 005474 012700 020166 , MOV #E0TM, RO 
1330 075500 904737 007010 JSR PC .MTYPE 
1331 504 012700 017051 MOV #.3,R0 
1332 510 004737 007010 JSR PC, ATYPE 
1333 005514 so00es: 
1334 e4sos”s; 
1335 e410 : CHECK FOR END OF PASS CONDITION 
1337 005514 032737 O20000 o02032 : IT OP, CFLAGS 
(9) O0SS2e2 O01425 EQ s00038 
1338 005524 013746 016154 ten MOV INTEST, -(SP) 
1340 ebS0 :CONVERT TEST NO. FOR OUTPUT 
1342 005530 012746 000002 : MOV #2,-(SP) 
1343 005534 012746 O20161 MOV #EOPM4+19. ,-(SP) 
1348 005540 004737 007566 a JSR PC, O2ASC 
se 4815 CONVERT PASS NUMBER FOR OUTPUT 
1348 OOSS44 013746 002036 : MOV TSCCNT,-(SP) 
134 0 274 2014S MOV aE OEN -(SP) 
1350 Beeee9 piso 35 BF 06 aa Tex PC, BINeDA 
1352 e630 : SEND END OF PASS MESSAGE. 
{323 OOSS60 012700 020136 : MOV #E0PM, RO 
1355 005564 004737 9007010 JSR PC. MTYPE 
1356 905570 042737 O20000 002032 BIC #E OP, CFLAGS 
1380 Boer s0g08E: 
Cs: ad 
(3) 005576 50001: 
(2) 005576 900207 RTS PC 
1359 24800 
ie svec8 
13e2 a 
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CZLAFA.P11 03-JAN-78 11:20 ERROR & REPORT ROUTINES SEG 0051 
}383 iietde $ HLAKKRHRHREREREE 
: SETIO ROUTINE TO SET 1/0 MODE 

1365 00030 SHEREEREE EERE REY 

i3e7 60130 ' 

1328 S5U50i. 

1370 G00S600 032737 900001 001364 BIT SFLAGL ,PCFLAG 

137 Bose i8 823993 000003 001364 a Be SPLAGT! BFLAG2, PCFLAG “4 
1373 005616 032737 o00001 001364 * BIT #FLAG1 , PCFLAG . j 
4 285 if 
(4) 7 ocooo2 001364 #F LAG, PCFLAG 

(7) 1761 BE soo0es 

Boers Saute 

(2) Bose3e 000207 " RTS PC 

1375 00320 

1376 06340 


NO4 





( ) -JAN-77 :01 PAGE 2-1 
eSFACPLiee "Bac yan-78 vee —-" INTERPACE SIZER ROUTINES SEQ o0S2 

1378 00700 .SBTTL INTERFACE SIZER ROUTINES 

os . # 
1380 00956 SUITE *Suenourane TO BUILD THE DEVICE TABLE USED 
pet Thea woe 1 — Sere 
1385 Bi? ILD: MOV ;SET uP CONSOLE TRAP 
1384 o1 nov sig, AACHE :SET UP NXM T 
135e i 1S: MOV (R1)+, i” 
Le? s1350 mE 
1389 pices HOV (Rips! ofa 
1383 iSo0 MOV BLADR  OVETXS 
1330 61430 ADD 84 DVETXS 
1 1440 MOV DveTxS, OVCTXB 
ee ois noo, Be, ovet Na. | 
133¢ 61580 TST @OLADR ° TRY TO ACCESS DVC 
133 1858 Roy Sabo perbAP EL US Fon peat 
1 1 : F 

> TX *TXMIT A ™>” 
1336 005764 138 Bree ae ;SET DvC TX INTR ER ENABLE 
tape poe5 54 1 PELAYR DLVEC IF ERO NO No INTERRUPT OCCURED 
1402 Obe000 Geies BEQ es wy 
i4oa o8200 ‘By jie INTE eae 70 VIA INTRAP’ 
1405 016126 Oe BIS f DLFLAG : 
ide Goenis Giana: Sieiay Ge3so 38: Ray BLOTH “RIN PUT Wea aNeognar on 
‘ies Goeees Glrat Siete SESS nov BUPEAGS STA, agicator 
1410 025 . 
006030 0000 ADD #10,R1 ; JUMP POINTER TO NEXT LINE 
iis Bere ie, eae se: el Vibe Re Os se 
1414 2 162701 000010 02750 «sé: SUB #10,R1 i CKECH LAST ENTAY 
1415 0057 02800 rst £R1} FOR LINE PRESENT 
isi? Ooe030 bi 711 177777 OSS8p MOV #-1, (RL) : SIF NOT SET IT TO END 
1419 DOEDER 12737 oocc0& oo00004 03100 7S: Moy 86, MACHER :RESET TRAP CATCHER 
eittetaa 0000. 3200 : #ABO A ;SET ABORT FLAG 
iWe2 006076 Oie737 pooeao pIEISe p3500 -™ Bic #SeL DLELAG :MAKE SURE LINE IS DESELECTED 
1uS4 DDE110 rea peease 03350 MOV #ER7, RO ;SU ERROR NSG 
1425 114 104 0 TYPE :TYPE MSG ON CONSOLE 
1uee Bette bo0734 03480 m=. 2 :FIX TABLE ENTRIES 
: RASE INTR FROM STACK 

1459 Boeis4 pBazay 00004 S300 StsCSRC(tsé«é@' SP FERRE INET NEXT LINE. ENTRY 
iaat p26a0 5 RHKKRERKEELE 
1432 03750: CH REPLACES TRAP CATCHER FROM 100 TO 1000. 
1433 03800 eretittitity 
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CZLAFA.P11 03-JAN-78 11:20 INTERFACE SIZER ROUTINES SEG 00S3 

1434 006126 012700 001000 03850 CATCH: MOV #1000, RO START AT 1000 

1435 006132 033900 «1S: CLR -(RO) ;PUT Hatt’ in PC+2 

1436 0061 010037 016100 03950 MOV RO, TEMP 

1437 006140 013740 016100 04000 MOV TEMP, -(RO) ;PUT PC+2 IN PC 

1438 O06144 000100 04050 CMP RO, #100 of gt 

1439 006150 b59950 04100 BGE 1$ NO - DO MORE 

1440 006152 018737 003466 900060 904200 MOV #READKB, deTKV SU CONSOLE 

1441 006160 000207 gueso RTS PC 


CZLAFAD LAZE TERM TST MACY11 30R:(19S2) O3-JAN-77 00:01 PSE 2-3 
CZLAFA.P11 O3-JaAN-78 11:20 INTERFACE SIZER SduTINes 
i4Si 0S400 ; 
14Se 0s4S0 .SBTTL EMT HANDLER 
14 Reege see eRe Re RT RRR ERE ERE EE EHH EEE SE EHH HE EF 
14S4 4s : THIS SECTION CONTAINS THE HANDLER AND MOST ROUTINES ACCESSED 
14s5S ;BY TRAPS THROUGH LOCATION 30. 
ee SO see eee ERE See eee eee ee Ee SF 
4 


9 ie 
B25 50 «=s EMTBOS: 


1458 006162 

RED G06 1 be 011637 O16112 ae nov (SP), TEMP4+12 xt tom. * 

i aba 895535 iat pretté MOV Sfenesia, Fenps +10" GET ent INSTRUCTION 
1461 OO06202 042737 104400 016110 05950 BIC #104400, TEMP+10 ;MASK wefh 6 ITS 
1 906210 737 006230 016110 96009 ADD MTABL Tene *10. 3 : ADD TABLE aboR 
146 16 017737 007 016112 MOV JTEMP+10, TEMP+12 

146s 006224 77 007662 96100 IMP TEMP +12 

ide? 4 nat RY ADL TYP OLE TYP 

1468 OoeS se pessi9 achat : bry te iC ERE TABL PRINTER 
1469 006234 007162 06350 INTRAP :OL INTERRUPT CATC 

i470 906236 007530 06400 DELAYM :DELAY ROUTINE 


CZLAFRAO LAE TERM TST MACYI11 308.1052) O3-JAN-77 00:01 PPGE 2-4 





=> $2 O3-JAN-78 11:20 10 DRIVERS 
spe oo 966 ;SBTTL 1/0 DRIVERS 
its eee eEeR _ 
wh ? ;ETYPE ona in CYTPUT ROUTINE, wENTER DH ADDRES 
ls  pepeeennens 
va 06900 
aace ETYPE: TSTb (RO) K AFOR NULL 
132 Boes2 abr abe 177564 85008 1S: if St 1ps pi REAC 
ee: Ste Hhove.awres —Ybbnent coamacve 
Ri kr rr or LEE cove 
igs Bosses jepaie fe Bee rpg 
ee ee ae 
1486 07350 SSSSSRE ASE 
isso oa iMECHO T TERMINAL Al QuTPur ROUTINE - SINGLE CHAR 
{492 57860 ; [NTERRUPT ORIVEN ALL LINES 
‘was Wevtrritrittty 
1a63 oe ECHO: mov Re, Re. MSAVE 
HOW sctacke, Fg NETIALIZE STACK2 
oS I STACKS 
1S: nov Bcvec, (Re) ;GET THE" ‘bacE ge VECfOR AboP 
A ADDR 
Bel ee ip oats =p 
HOVB ee : HOR Ih BUF REG 
id BAe:  SOVETXS NAGLE. bx x ANTEEELE Tg COUNT 
: or pee Ist ? 
i 5 j adore. Pc — ;NO DO ripen L NEON ' 
gid Beas Sigeae Buecee cot SIs on Re mSUESET JSOVE STHCK2 POINTER 
= : TS SHOULD 
He a Sn eS St BENENDEN BFA 
161 4 12% 
1517 boedaa eat 006646 nov nSAVE! RE 
iéia Boece 8880 2s RTS P Stack 3 LImt7 
ieig 006442 010437 S2 3$ MOV RY Reeve os arnt 
isel Soewse legs Behe = Beas my HNeEKE- 2 y SrRek3 ESHNTEE 
: - 2),¢ )+ 
Hes) SObE BUtzUG nn aa elk ee 
i3ss Opes O2ba7 i D920 BEG man YES. ~ ofan Beste 
iese 006470 000772 09250 BR 4$ C0 CT. 


EOS 
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LAFA.PI1 3-JAN-78 11:20 1/0 DRIVERS 
ons ooso . sERASE VECT OUT 
135 ooe ara od $3305 _ EtR CRA) i BRACE VECT IN 
tess 006476 Besvae ooo002 09400 _~—=éséiS: ADO #2,Re :MOVE STACK POINTER 
i ? O066S50 94 . CMP Re MSAVE+2 :ENO OF OUT STACK ? 
183 1 53800 BEQ ; ;YES > GO GET 000 VECTOR 
1832 12704 020574 09550 OV aSTACKS, RY —- ohfeoe™ ACKZ POINTER 
is 514 9600 ; 
: R :RESET STACKe POINTER 
les Geese Bieri POO bags GE: YER Re HERSEL Pano SURG 
003 097 
1837 O06! Bers oo0002 038 800 #2,R2 
Notes , +4, MSAVE+4 :GET VECT FROM TAGLE 
1333 Ooe 42 pb55i5 pastou — o3950 ids: cn arisAves, (Re) :MATCH page 
be 14 0000 s : -G. a 
184g atts Dee? 37 ee a ae BR. maa unre eer ee 
1544 006 Dee? oo00002 go6652 18150 118: ADD se,NSAVE +H | ;GET LINE NUMBER 
1Bue poeees 1 16160 1p5ep CLRB ONLIN ° 
1547 006600 000337 016160 10300 SWAB ONLIN :ERASE JUNK BITS - 
1548 004737 3e 10350 JSR PC. MTW ;MOVE TABLE TO WORK AREAS 
1549 eesty 012737 S 002034 10400 MOV 8€R7, TSCPTR :POINT TO ERROR MESSAGE 
igey Bocees o8s73> Yond00 bpsoas iOvs0 Bis’ SHERACCELAGS EET ERROR FLAG 
ige2 1055 Wriiiiititiiiiiit ts 
1553 10600 ; RROR 377 + 
10650 LEREEEEESEEEEPEREDER 
ieee 004737 : JSR ERROR 
1556 006636 042737 100377 oO02032 10750 BIC aMERRN, CFLAGS s ERASE ERROR DATA. 
1557 006644 000672 10800 ak 1 :CLE U 
1888 006646 COO0000 o00000 xD0000 19850 MSAVE: .WORD 0,0,0 
1560 10856 
1263 108A 5 FFSKESREESHHRER 4 
1563 10861 ; SECHO SINGLE INE ECHO ROUTINE é 
1564 10 ; NTE ut H CHAR IN Re 
1565 OBES ; RANSMITTS TO DVC VIA I/O DRIVER WORK AREA 
1566 10864] =—,, HeRERESEREREEEE 
1567 1086S 
iee9 006654 —_— SECHO: 
1570 DoEee 013737 016144 016150 “MoV TXVEC SAVE 
1871 O06662 062737 OO00002 016150 ADD #2458 ‘ 
1S72 006670 012777 007510 007246 MOV aSTRAP, aTXVEC 
1573 006676 012777 00200 007244 MOV SPRI4, OSAVE 
1574 006704 012737 OO014* 007564 MOV al LAYT 
1575 00671 it 007224 MOVB RO Cc xB 
1378 00671 12777 000100 007214 MOV #100,a0VCTxXS 
is 9067s 37 020670 . INC ENDS 
1578 7. 198006 1087 DELAYR 
193i niger Boat maniies BEG s000es 
1580 006749 012737 O2005S o002024 MOV WER? TSCPTR 
S61 O0674—6 052737 100376 O0e03e BIS 9376! eMERR, CFLAGS 


FOS 


CZLAFAQ_LA36 TERM TST. MACYTI 30A:1052) O3-JAN-77 00:01 PPGE 2-6 em 
<StOrA-Pii O03-JAN-78 11:20 1/0 DRIVERS <£% 0057 
i 754 004737 005124 ISR PC ERROR 
i e83 005760 042737 rites 002032 access BIC BERR , CFLAGS 
158s 13777 016150 007150 MOV SAVE, aTXVEC 
1586 poesse pheoo> erate CLR AV 
1587 007000 013737 016160 016150 MOV ONLIN, SAVE 
1588 007006 S0000$: 
(3) 007006 , 50001$: 
(2) 007006 000207 ri RTS PC 
1589 10900 
1590 10950 
1233 1 1008 iNTYPE  TERMINA OUTPUT ROUTINE - LINE TABLE VERSION 
is 1l sMTY - f VER ! 
1533 11106 ; ENTER WITH ADOR OF MSG IN RO 
isge : 1158 SHKKEKRFSSRES 
1596 OO70i0 11 112S0 TYPE: MOVB (RO)+,R2 :GET CHAR TO PRINT 
1597 O0701le 9001403 11300 BEQ 1 :EXIT IF NULL CHAR 
1598 007014 004737 o06270 JSR PC ,MECHO 
1899 007020 000773 11400 BR MTYPE ;GET NEXT CHAR 
1600 007022 114SO = 1S: RTS PC sEXIT... 
1601 11460 
1602 11462 
ies tiene REKREEE HREE 
ee ae 
1605S 11468; DIO THIS ROUTINE MONITORS AN I/O READ OPERATION 
1696 11470 ; PEPER E PEERED FE 
1607 11472 
1608 11474 
16039 9007024 READIO: 
1610 007024 042737 COYO00 001364 BIC #DATAIN, PCFLAG 
1611 007032 010237 007564 MOV Re, DELAYT 
i612 007036 012777 000101 007064 MOV #101, JOLADR 
1613 007044 104006 11480 DELAYR = h 
1614 11481 ; IF NO CHAR RECVO WITHIN (R2) MS SET ERROR FLAG 
16iS 007046 032737 OO4000 001364 BIT #DATAIN, PCFLAG 
(9) 007054 001003 BNE 
1616 007056 OS2765 100000 oD0004 BIS #MERR, MFLAGS(RS) 
1617 007064 so00es: 
1618 11487 ; IF ON LINE-O CLEAR I70 MODE FLAGS 
i619 007064 105737 0O16160 TSTB ONLIN 
‘§) 0070 061004 BNE 50003$ 
1620 007072 042737 O00003 001364 BIC SFLAGL! @FLAG2,PCFLAG 
i621 007100 d00402 BR 50004$ 
(3) 007102 S0003$: 
ig22 007102 005077 007022 CLR JOLADR 7 
1623 007106 SO004S: 4 
16e4 007106 50000$: 
(3) 007106 50001$: 
.2) O007106 socz07 RTS PC 
1625 11500 
1626 11502 ¢ 
lee7 11504 
le2e 11506 j PEPE SPER REE SEES 
1625 11508 ; TYPES TERMINAL OUTPUT ROUTI SINGLE LINE 
163¢ 11510 SFFORESESSS EEE ED 
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CZLAFAC LASE TERM TST MACY11 30R.1052) O3-JAN-77 00:01 PAGE 2-7 
xs cAFA-PIi 03-JAN-78 11:20 1-0 DRIVERS 
i631 ifsie 
ié3e 11514 
1633 007119 412008 11516 TYPES: nove (800+, R2 gt Cuan, To To PRINT 
711 14 
ip3e Oot is 4737 006654 11520 JSR PC, SECHO : SEND the” MESSAGE 
1636 007120 900773 11522 BR TYPES 
1637 OC71l22 d00e07 11524 1S: RTS PC sExIT 
1638 11526 
1639 11528 
tial 11339 "READS I§ ROUTINE SETS UP OVC RECVR VECTOR APEAS 
~ 11 ; REA H U 5 f 
ie 11336 ae CURRENT LINE if NOT LINE-C 
1643 11S34 | neueenseneuens” 
1644 11536 
1eue 7124 —— READS 
teu eee 105737 016160 TSTB ONLIN 
(9) 007130 001003 BNE 50002$ 
1648 007132 004737 oDsé00 ISR PC. SETIO 
1649 007136 O00410 BR 50003$ 
(3) 007140 so000es: 
1650 tg a 019877 766 MOV Devoe. Re 
1651 7144 6013702 016132 MOV 
1652 007150 O6e702e od00002 ADD 
1653 007154 O1271le 9d002e06 MOV SeATS. (Re) 
1654 007160 50003$: 
1655 607166 50000$: 
(3) 007160 500015: 
<2) 007166 oo0207 RTS PC 
1656 11554 
265° 11556 
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11:20 


Bei 38 
800016 


1 
007564 


017733 
007S66 
017733 
016100 
020117 
020105 


TRAP ROUTINES 


11598 .SB8TTL TRAP ROUTINES 
meTtiii it iii 
1i650 =; INTRAP: us D BY TABLE aBUitD TO GET ADORE SS THAT A LINE 
11700 ; {NT RRUPT 3 TO AN TORE IT IN - LVEC 
117 ; RANSMIT INTERRUPT USED, DLV HAS NO MAINT MODE. 
11800 - SSSEESREREEE 
11875  tNTRAP: CLR agycT xs ;DISABLE THE INTERRUPTS. 
ADD — T STACK POINTER 
U 
018132 11388 SUS sfoPbvec ; ADJUST +3” REVAD 1H +h 3o Be 
12050 . RTI :G 65° Back: 6° BUILD ‘ROUTINE 
1e150 p PERSE RREEEE 
12200 :PRTLTB THIS ROUTINE TYPES 1 THE LINE TABLE ON THE CONSOLE 
g L 
18686 : Oey ASPRIATE I oRNATTON Pe sis leer FOR "Bo cw INE. 
12350 writtiiiittit 
1 09 
1 PRILTB: 
- MOV TEMP, - (SP 
MOV TEMP42, aC SP ) 
12650 MOV #L INOO' Re ;POINTER TO ;START OF TABLE 
12700 MOV SHEADRE? , RO 
12750 TYPE ;PRINT HEADER 
1e800 «1S: TST (R2) ;LINE PRESENT? 
12850 BMI et YES - BRANCH . - 
129 ADO #10,R2 IMOVE POINTER TO NEXT ENTRY 
12950 =s«é6S:: CMP (Re), @-1 :END OF TABLE? 
13900 BEQ 108 
1305 BR 1 :YES - BRANCH 
13100 «2s: MOV (R2)+, TEMP :SAVE FLAG WORD 
MOV (Re)+,-(SP) 4 
MOV #4,- (SP) : 
MOV socAad -(SP) ‘ 
13300 JSR PC. O2ASC ;CONVERT ADDRESS TO ASCII 
MOV (R2)4+,-(SP) 
13400 MOV a3,-(SP) 
MOV soly aiaP) 
13500 JSR eRs ;CONVERT LINE NO. 
13550 MOV ATS TEMP+2 
13600 SWAB TEMP+ 
MOV TEMP+e, -( SP) 
MOV #e,-( 
MOV alin air? 
13800 JSR PC oeas 
13850 MOV al Cin: ; TYPE FORMATTED LINE 
13300 TYP 
1395 3S: TST TEMP ; SELECTED? 
14000 BEQ 45 NO - BRANCH 
140 mov #51,R0 SEND STAR 
14155 «4S: MOV #OR,RO ;SEND DROPPED MSS 
i4200 «5S: TYPE 
14250 BR 6$ 
14300 = =108: 


S&G 0069 


IOS 
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Yl 
O3-JAN-78 11:20 TRAP ROUTINES 

(2) 007376 012637 016102 MOV (SP)+, TEMP +2 
i714 007402 012637 016100 MOV (SP) +) TEMP 
i7iS 007406 O1e700 01705i 14400 MOV #.3,R 
i716 O074ie 104000 14450 TYPE 
171? So74i4 Goooce =, 14500 RTI 
i7is 14550 


JOS 
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Yl ‘ 
03-JAN-78 11:20 TRAP ROUTINES SES 0061 


LAFA. 
i720 14600 p RRS E REE 
i7el 14650 ; TXTRAP THIS ROUTINE CATCHES THE INT RR ers FROM 
1722 14700 DL11°S IN USE BY THE MECHO 
i¢s3 4 age + seeenneesece 
17 
1728 007416 162716 oOO00010 1S000 TXTRAP: SUB #10, (SP) ;SUB 10 FROM OM UPDATED PC ON STACK 
1729 OO742e 011614 ; 15020 MOV (SP5. (RY) :PUT BASE VE 
1730 OO7424 O12746 016174 15040 MOV aL INDO+4 -(SP) ;GET POINTER TO LINE | TABLE VECTORS 
1731 007430 Oe7b14 0000 15060 «1S: CMP 9O(SP), (RY) ; COMPARE TABLE TO STA 
1732 007434 1403 15080 BEQ ;SAME - BR 
1733 007436 G62716 000010 15100 ADD #10, (SP) ;POINT TO NEXT TABLE ngNTRY 
1734 007442 000772 15120 BR ;KEEP eae FOR A MATCH 
1735 007444 162716 oD0002 15130 2S: SUB ; ADDR NOW ON STACK 
1736 O00O74SO 017637 - 016100 15140 MOV S6tSP) TEMP :GET OLADR FROM TABLE 
1737 0074S6 062737 000004 016100 15160 ADD TEMP :POINT TO DVCTXS REGISTER 
738 Barwa Sesvee Bpsoue 1e260 Bute SL PMEY Rcd" POINTER” To onIvER Fc 
1740 OOzes 908337 020670 15220 DEC eNOS +S ECRIMENT INTERRUPT PENDING COUNT 
1742 007502 005037 007564 15260 CLR DELAYT ;ABORT TIMEOUT IF ALL ACCOUNTED FOR 
1743 007506 o00002 15280 4863S: RTI :RETURN TO I70 ORIVER 
1744 1$300 
1745S 1$S00 
1746 15501 
1747 15S0e 
1748 15503 ° 
174s 1SS04 5 ASR EEEREE REESE 
1750 1550S ; STRAP SINGLE LINE TRANSMIT INTERRUPT CATCHER 
1751 15506 =; USED IN CONJUNCTION WITH SECHO ROUTINE. 
1752 15507) =—_s gg RHR HERE REE 
1753 15508 
1754 15509 
1755 007510 STRAP: 
1756 007510 005077 ocDB4e4 CLR SOVCTXS 
1757 007514 005337 O2067C DEC NOS 
1758 007520 005037 007564 CLR DELAYT 
1759 75, oooco2 15515 RTI 
1760 007526 soo000s: 
(3) 007526 500018: 
(2) O007Se6 000207 RTS PC 
1761 15517 , 
1762 1SS18 
1763 15519 
1764 15550 
1768 15750) 0 ; H#RMRRRKEHERE 
1733 13800 ; DELAYM . DELAYS FOR X MILLI SECONDS, X STORED IN - DELAYT 
1555 15300 errrerrer TT 
1773 007530 005737 007564 1595S  DELAYM: TST DELAYT 
1774 007534 OO14i11 15960 BEG 3$ 
1778 36 010346 ‘ MOV RS, - (SP) : 
1776 007540 013703 o07S6e2 ° 16050 18 MOV TIMER,R3 ;1MS LOOP TIME 
1777 007S44 005303 16100 es DEC R3 
1778 OO7S46 001376 16150 BNE 2s 


KOS 
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C2LAFA.Pil 3-JAN-78 11:20 TRAP ROUTINES SES O06e2 
i779 O0O7SS0 005337 9007564 16200 DEC DELAYT 
1780 007554 003371 162eS0 BGT 1 
4} 007586 012603 MOV ‘axa 
1782 9307560 000002 16350 838: RTI 
1783 16400 
1784 O07S6e O005S4 16450 TIMER: .WORKD 554 ;SET FOR 1173S - 11740 
1785 16$00 ;SET TO 20e IF 11703 
1786 16550 ; 2S1 11705 - 11710 
1787 16600 ; 314 11715 - 11720 
1788 16650 $ 2127 8=11/74S BIPOLAR 
1789 16700 $ 1e37)—S 1174S - 11770 
1790 16750 : 7S5 11745 MOS 
17S1 007564 900000 16800 ODELAYT: .WORD 0 ;DELAY TIME BUFFER 
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CZLAFAD ws TERM TST  MACY1 
C2u 11:20 CONVERSION ROUTINES SEG 0063 


AFA.P 03-JAN-78 
1793 16900 .SBTTL CONVERSION ROUTINES 
1794 16950 
123e 1obep pOBRSCE ocr TO ASCII CONVERSION ROUTINE - ENTER WITH 
i599 15980 UnBER % BE “ConVERTE B On THe STACK, FOLLOWED 
1798 171S0_—Ss; DIGITS T LLOWED 
1733 17¢00 aaseeeflal® SY ORAGE ADDRESS FOR $e Veecls STRING. 
8 
1801 007566 016637 oo0006 016150 17300 2A MOV &< SP), SAVE ;GET WORK COPY OF NUMBER 
at | - 
1806 Bee eod Beezee eeteteat oooco4 123 ADS EeYBs SPEp, ;ADD COUNT TO POINTER 
1804 OO 005366 000004 174S0 DEC 4(SP) sDEC FOR END ADDR 
1808 007612 042716 177770 17800 2s: BIC #177770, (SP) SK OUT ALL BUT 3 BITS 
ee 0527 

1805 ue 1116 eat MOVB t88 Su (SP) Par RAKE, Cuan Asc C TiN BUFFER 
i809 Bagobe 17885 tad rit 4 + OEE BE poanTee COUNT 
tive Brees Borer tos 17788 ais Brine lr 6 
1811 0076 006266 000010 17800 ASR 10(SP) 
1812 007644 006266 000010 17850 ASR 10(SP) GET NEXT DIGIT 
1813 007650 O06266 000010 17900 ASR 10(SP) 
1814 007654 016616 000010 17950 MOV 10(SP), (SP) 
1815 007669 000754 18900 BR gs ;DO_ NEXT SHAR FOR CONVERSION 
1816 007 016666 ooo0002 op0010 18050 1S: MOV (SP), 10(SP) :PUT RETLAN PC AT TOP OF JUNK 
1817 7670 062706 000010 18106 ADD #10,SP , sBOENT 1 TO RETURN PC 
1818 7674 020 18150 8 PC 
1819 18200 
1820 1 5 EE EEE 
1821 183 ;R2BIN CONVERTS INPUT AscIl TO BINARY NUMBER 
182e 18350 =; ENTER WIT 4 ADOR OF ASCII STRING ON STACK 
1823 18400 ; FOLLOWED # BrerTs TO CONVERT 
1824 18450 FOLLOWED M ADDR OF WORD FOR ANSWER.- 
iss 18608 } suneuenannes 
1830 007676 A2BIN: 
1831 007676 oO10046 MOV RO,-(SP) 
1832 005037 010004 CLR A 
1833 007704 016600 10 MOV 10(SP),RO 
183¢ BOr718 142710 000370 S0002$: icB «#370, (RO) 
1836 007714 boe5ee 000006 DEC 6(SP 
1837 007720 152037 010004 BISB (RO) +, A2SAV 
es Barres Brag oom eee o8b2 
1839 007732 eee 010004 ASL A2SAV 

) Barres BBessy BIaD met Beery 
1840 007746 000760 on R s50002es 
1841 007750 016600 oD0004 * MOV 4(SP),RO 
1642 013710 010064 MOV AZSAV: (RO) 
ig4a bosses Bleesa popooe MOV areas Ro 

184S 007770 062706 O00010 ADD cp" 


MOV RO 0 8P) 


10016 
1847 007776 013700 010004 MOV A2SAV, RO 
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CONVERSION ROUTINES 


ebbot8: 


RTS PC 
AesAV: .WORD O ; STORAGE AREA 
5 RERRERRE REET 


BiNey TO DECIMAL ASCII CONVERSION ROUTINE 
ENTER WITH NUMBER TO CONVERT ON THE STACK 


3 FOL OWED By THE AQDRESS OF THE ASCII BUFFER. 


PRAEKRSELRKEM 
BIN2DA: MOV #7 ABDA RO ; INITIALIZE TABLE POINTER 
nove #S, DIGITS 
1S: CMP (RO).4(SP) 
BGT 
SUB (RO) .4(SP) 
NCB ENTOA 
2s: BISB #60, CNTDA 
TSTB FLAGDA 
BNE 45 
CMPB CNTDA, #0 ’ 
BNE 
HOVE 8177, CNTDA 
3S: COMB 
4s: MOVB EOE csr) 
CLRB a Rd 
DECB brGrTs 
BNE 1 
MOV (SP) .4(SP) 
ADD #4, SP 
RTS PC 


TABDA: .WORD 10000.,1000.,100.,10.,1 


CNTOA: .BYTE QO 
FLAGDA: .BYTE QO 
DIGITS: .BYTE 0,0 


OS 
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CZLAFA.P11 03-JAN-78 11:20 LAZ6 OPTION TEST SEQ 0065 
1898 00250 .SBTTL LA36 OPTION TESTS 
a2 00300 jee RR RRR REE ED Ree EeERPReReRHeEeReeeRHeER RE He FF 
1 
1301 65400 i TESTO SECONDARY ACTER SET OPTION 
1 50 NO MANUAL NTERVENTION REQUIRED 
1203 te eR RRR RES RE PRRRHREREREFSRERRRRERER ES 
190S 010164 O12705 oO TESTO: MOV #TOOBLK, RS ;SET UP POINTER TO MODULE BLOCK 
1308 910170 0127 0 0366 00650 mov B10, RO ;SU TEST’ ID 
1383 816350 B035, aa 00750 ~«=s‘ TO: V BPAT RO ;SU PRIMARY MSG 
1909 010204 7 007010 JSR Pc, MTYPE 
1910 010210 7 1 19 o0gs0 JSR PC’ CHARS ;SEND ALL CHARACTERS 
1311 1 14 27 MOV aL 1,RO 
191 1 7 7010 JSR PC. ATYPE 
1913 010224 O1 010434 01000 MOV #SEC RO ;SU SECONDARY MSC. 
1914 O1 30 7 19 JSR PC MTYPE 
1915 O1 1b 01100 MOV #S0, Re ;SEND SO - SELECT APL SET 
1916 O1 7 JSR PC, MECHO 
1917 O1 7 1931 01200 JSR PC’ CHARS ;SEND ALL CHARS AGAIN 
1318 1 01250 MOV at: RO 
ise0 010260 bizve o00u1? 01350 HOV ae SEND SI-SELECT ASCII 
1921 010264 004737 006270 oi JSR PC, MECHO ’ 
1355 010270 0S2765 o20000 oj00004 pt eap BIS #TCONE, MFLAGS(RS) ;SET DONE AND ATTENTION FLAGS 
1924 010276 Ole 000012 01550 MOV pee ;SU FOR LF 
1925 91930¢ 7 006270 JSR AEEHO 
1926 01 01656 RTS 
1927 017000 s_ ; He NHRHRRRHEE 
1369 51960 ; SUBROUTINE TO FILL OUTPUT LINE WITH ALL CHARACTERS 
lee . 
19 010310 3701 016146 1850 CHARS: MOV WIDTH, R1 
1931 010314 012702 oOo0040 01 MOV #40, R2 Save HAR 
i 010360 162701 000007 O1 - SUB #7,R1 ve 45h WIDTH” FOR PRI/SEC MSG 
(3) 010324 004737 006270 JSR PC ,MECHO 
1332 lose 92088 ie ites 
1935 O01 010364 1 CMP Re, RUB :LAST CHAR? 
1338 O103 1403 02150 3$ 3 YES = 
1 1 i O22 DEC Ri ;END OF PAPER? 
1938 01034 OOL40} 02 BEQ 3$ :YES - E 
1939 010344 02300 BR 2s ; SEND 
1940 itette 06350 3S: RTs PC 
1941 O1 .WORD 6 ; ITERATION COUNT 
1942 010352 o00000 02450 TOOBLK: .WORD O :CTLCNT 
1943 010354 025 : WOR 0 ;PASS COUNT 
1944 Bt -WORD O ;STATUS FLAGS 
gue Ot 10200 02650 “WORD TOL RETURN PC 
13M? 010364 000177 O87 RUB: pe Horo 177 
1949 010366 O42524 052123 030040 TO: ASCIZ #TEST O /APL/ASCII CHAR SET*<15><12><12> 
1950 010424 051501 O44S503 O26511 Oeesso PRI: -BSCIZ /ASCII-- 
195i 010434 050101 026514 O2645S 02900. SEC: "ASCI2 7APL----7 
1952 02950 EVEN 


BO6 
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1954 0305 

1955 0310 .LIST BEX 
19S6 Baise ;# a SR EV RRERBRRARBRRERHRERS RR REPRE RR RHR EH SH 
1957 

gee SO TESTI SELECTIVE NG OPTION 
ies 03880 BBERATOR must ESS ARE TYPEOUT AND SWITCHES ON THE M7737 
1960 03350; 10. CER oFy CORRECT OPERA 110 
1961 03400; IF A UNIT SELECT CODE OF LESS THAN 20(8) 
1962 O34S0_—Cs; IS USED MODIFY UNS CATION GSEL ACCORDINGLY 
1963 03500 =o; 
1964 03550 see eR HERR RERREKRERE RHEE EEE HEE EEE EEE 
13ee 010444 — TESTI 

1967 010444 O1270S 010722 03700 MOV STOIBLK,RS ;SET UP POINTER TO MODULE BLOCK 
1968 0610450 012700 010742 03750 MOV eTl RO \ 
1969 010454 004737 007010 PC .ATYPE 
1970 010460 03850 «Til: SELECT ALL MEE ETINALS, THEN TRY TO 
1971 03900 + ORIN ER nb Sele HOULD NOT PRIN 
1972 02950 ; TRANSMIT BAD SEL cr SEQUENCE THEN THY TO 
1973 04000 :PRINT ERROR MESSAGE HOULD NOT PRIN 

1378 o40s0 >SELECT ALL TE Noce: PRINT GP OESSAGE. 
1976 010460 012765 O10S66 o00010 MOV 8713, RPC(RS) 
1977 010466 013701 010734 MOV L’R 
1978 010472 012737 011176 010740 MOV aTABL1, TITEMP+2 
1979 010500 012737 O00001 010736 MOV #1, TI TEMP 

) oigig Ooe sooas: ee 

(7) pipeto 005237 010736 NC TITEMP 

(5) 010514 s000es: 

(5) 010514 023727 010736 oO00010 CMP TITEMP, #8. 

(7) 010522 003014 BGT SO004S 
1980 010524 916700 017730 MOV 1,R0 
1981 010530 0047 007010 ISR PC. MTYPE 
1982 010534 017700 o00200 ‘ MOV aTiTEMP+2,RO 
1983 010540 004737 007010 ISR PC ,MTYPE 
1984 010544 062737 OO00002 010740 ADD se TITEMP+2 
i735 pi pees — so004s ™ - 
1986 04650 ; TRANSMIT SELECT CODES TO ALL TERMINALS 
1987 04700 : FOLLOWED BY ASCII EQUIV OF CODE. 
1988 o010S5S4 04750 =o Til: 

(4) 010554 012765 010460 oD0010 MOV #711,RPC(RS) 
1989 010562 013701 010734 MOV L‘R1 
1330 010566 o4eso 113: sOUTPUT ALL CODES AND ACCII EQUIVELANTS 

1992 910566 020127 oDD0200 ” CMP R1, #200 

(S) 010572 001420 BEQ s0b06$ 

1993 010574 012700 o204e1 MOV BSCODE RO 

1994 010600 110160 000003 MOVB RO) 

ise Siders Pisrae Boones Be te 

@ 

139g — pa with os2s0 TShou CONVERT SELECT CODE TO ASCII FOR OUTPUT 

1999 010620 004737 010662 ysR ON 
2090 010624 004737 007010 JSR PC’ MTYPE 





CO& 
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2001 010630 01 INC R1 
soo2 010632 000755 BR s000s$ 
(3) 010634 50006$: 
2003 0ss00 ; TURN ALL TERMINALS ON AND EXIT TEST 
2004 910634 05550 —=s Tis: 
(4) 010634 012765 010460 000010 MOV aT11,RPC(RS) 
2005 10648 7 020000 oc00004 BIS STOONE , MFLAGS (RS) 
2006 Ol 706 020411 mCy BALLON: RO 
2007 010654 737 007010 PC, MTYPE 
Om B1DeeD S078 
( D660 $ 
(2) Bie 0 000207 RTS PC 
0S750 ; THIS ROUTINE CONVERTS THE SELECT CODE 
2010 ‘ 05800 _ : TO ASCII FOR OUTPUT IN OCTALC MESSAGE. 
Sots Bi bees : CLR TI TEMP 
2013 010666 MOV Ri, TITE 
20i4 010672 MOV TITEMP. -(SP) 
2015 010676 MOV 83,-(SP) 
2018 010702 MOV socTALC,-(SP) 
201 019706 JSR PC 62 
ig 010712 MOV s0cTALC, RO 

Oy BiSriE 
(2) pi oeie RTS PC 
2021 010720 . WORD ; ITERATION COUNT 
20e2 010722 . WORD 5 + ETE CNT 
2023 010724 : :PASS COUNT 
ees 010726 “WORD Status LAGS 

107: ‘ ; QIN R 

 Blozaa : 7 PRETART OF SELECT CODES 

305 bi b53e ; WORD ,0 ~ 

10742 o0sO 1 : (15><12><12>/TEST 1 ECT ADDRESSING’ ‘15><12)<12 
5034 Bit Toe eat petit? “Beets obRRoke “Hrs D ROT PRINT 0 
5035 O1ii00 oweses paesi4 besiBS Beets oe FETE CN EACTERS RECOGNIZED =-~ 

° s/ 

os Bi ii98 oni 6114 §2s393 “Bsct2 7BcL TERMINALS ERouLe BE OFF7<15><12> 
2036 011176 O20416 O1100S 011137 i "WORD ALLOFF,E9,£10,NSELC,E9,E12,ALLON, GP 
2836 97280 
2040 07300 
2041 07350 eee eee ERE EE 
204 3490 :;GETANS THIS ROUTINE SETS UP AND READS THE ANSWERBACK 
204 74 ; MESSAGE FROM THE TERMINAL UNDER TEST. 
2044 07500) «; H##eeeeEE SESE 
2045 07550 
2046 07600 
2047 o 07650 
3008 Bi1ei€ 010337 011304 snc R3,25 

ilel MOV 
2050 Oli22e Ol2702 013144 MOV aT BED Re 
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ll 737 
S824 Biisss 872586 
vss plies: 004737 
(4) Bt igus 3708 
20s5 ll B433, 
ees 611860 
20? ll H 
20ss 011270 105011 
3 11272 000403 
(3) 11274 
2060 11274 105237 
spe. Sted 000760 
S0e3 011308 
(3) 011302 
(2) 011302 07 
2064 611304% o00000 
2065 
cO0b6 
2067 
2068 
5068 
070 
2071 
2072 
207 011306 
3a 
75 306 9012700 
2076 3le 004737 
2077 316 012702 
20 7 
53 
2081 013746 
2082 


<£ 


ssenags 


012700 
‘ 7 
2030 105 
(9) 0034 


Rone hhus SaaRRON 


: 


NB 
Pgo8 


ee ae ee te ee ee Be Oe hh ee he hee 
ss a ee et be ee ee eh be 


S£ELLLL 


1 

14 
Beta so 012700 
2097 e4 012702 
2098 30 904737 


MACY11 30AR: 1052) 


11:20 

Boad8s 
0066S4 
Botde4 
100000 
100000 


0132i2 


000040 
OO&ESY4 


900004 
ooooo4 


x 


O06 
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o8coo 


08350 


03337 


09700 


50002$: 
Badal $ 
S0001$: 

RTS 
es: . WORD 


5 SHSSHRERSLES 


: TYPANS THIS ROUTINE PRI 
IN OCTAL FORMATT , 


rrrtir iti its) 


TYPANS: 


1$: 


50002$: 


SOCO4S: 


wENG. Re 


PC, SECHO 


Be READIO 


eMERR MFLAGS (RS) 
»MFLAGS (RS) 


(Rl) 
s0003$ 


T2CNTi 
is 


Pc 
0 


#SCODE , RO 
PC. TYPES 
aStx. Re 

P HO 

PC, TY’ ee 
T2enT1, -(SP> 


-(SP) 
(R1)+, (SF) 


PC. TYPES 
#19. ,RO 


#40, R2 
Pc, SECHO 


RINTS THE ANSWERBACK MESSAGE 
AND ASCII FORMATT. 


baba 
D 


furufururufuf sofu 
+O be mo be be he ee pe ( 
BoRResRVoNss 


Steret= 1%) 


fufurufu 
ftr-OW~ ~ 


5 
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11434 005300 DEC RO 
pie ata TST RO 

11449 061401 BEG so0o00ss 

11442 000770 BR 50004$ 

11444 soooss: 
011444 012700 013220 MOV eT2BuUF RO 
011450 004737 007110 Ss Pc. TyPES 

11454 012700 917730 MOV aL 1,RO 
911460 004737 9007110 JSR Pc, TYPES 

11464 50003$: 7 
O11464 012637 013212 MOV (SP)4, T2CNT1 
011470 so0000s: 
011470 50001$: 
011470 900207 RTS PC ; 
011472 OOSOiIS O47:01 OS3523 10100 ANSHDR: .ASCIZ <15><12) “ANSWERBACK RECVD = 
Oi1se0 930060 027460 505 10150 OCcTALS: .aScI2 007s 

511826 15200 "EVEN 


FO6 
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cet 'E ? Lad on TESTS 


Yl 
O3-JAN-78 11:20 


L & OPTION T 
‘ T x A 
giie 19358 Pee R EERE RED ER ERS ER ERE EERE REE EER EE EES 
2116 10450 
? 'TEST2 AUTO ANSWER BACK OPTION 
Sile tpeeo ; SINGLE LINE TESTS REQUIRE MANUAL INTERVENTION 
gii3 10608 eR RRR ERE REP EEE EEE REE ERE HEE ES 
2lel 10700 
2lee 10750 .ENABL LSB 
3154 61182 912700 013326 1889 ono a72,R0 
z 10900 MOV aT “1. ;SET UP STACK-2 AS INPUT BUFFER 
218¢ 011836 018705 013176 1 198 pentane :SET UP POINTER TO MODULE BLOCK 
21 11542 004 701 TYPE 
011546 11050 —=s‘ Ti: F THE L Ne ER TEST HASN’T BEEN | S1ZE0 

giss 11100 :FOR THE ANSWERBACK OPTION DO SO N 
2i30 11150 : 
2131 011546 105737 016134 sts OTH -: 
2132 61226 eer 013220 MOV 
18 11308 PGC OEPTRSEATY OF RINE, TOL Foe CORRE 
513¢ {1300 did D BUT NO ANSWER RECVD. 
2136 : 11450 
2137 011560 013737 010734 013214 the Ki ge 
2138 O11566 013737 016160 013216 MOV ONL TA, g EMP+2 

(7) 011574 013216 ASL - 

(7) 011600 006337 013216 ASL fetes 
2159 Orielo beers? OLeIZE o13216 ACB s«INOOS6 TeTENP+2 
2140 011616 112777 00 001372 MOVB BOAO OTStENP 
2141 011624 50003: 
else 011624 923727 013214 000200 CMP TeT ee #200 
2143 11800 oy SELECT CODE 10. THE 
2144 11850 | TERRI HEN ANSWE RBACK 
214s 11900 Aka) STORE THE SELECT 
2146 11950 © TH LINE TABLE. 
2147 12000 
2148 O11634 113737 013214 oGe2o04e4 
2149 011642 012700 Oe0421 hove 
2150 011646 004737 007110 JSR a 
215i 0116Se 012703 000310 MOV pcan 
2:52 011656 Oi3ele CLRB TecnTl 
2153 011662 004737 Ollelé ISR PC. GETANS 
2154 O11666 105737 O1321e STB TetnTl 

(9) 011672 OOl4ie BEQ g000Ss 
2iSS 011674 1137 013214 001314 MOVB 2TEMP, JTETEMP+2 
2156 B11 702 113737 013214 016134 MOVE TOTEMP: DLOTH 
2157 011710 012737 O00200 013214 MOV #200 TaTEMP 
2158 O11716 o2 BR so006$ 

(3) 011720 socoss: 
2159 011720 105237 013214 INCB T2TEMP 
2160 011724 soo0es: 
2161 011724 000737 BR 500038 

3) OG1172e soco4s: 


e* 


GO6 
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CZLAFA.FLI 03-JAN-78 11:20 LAE OPTION TESTS S€% 0071 
2162 011726 50002: 
sits 011726 15ee0 T22 IF THE LINE HAS BEEN SIZED, BUT NO 
Sis 12700 :SELECT CODE HAS BEEN MAPPED NOTIFY THE 
2166 12750 :OPERATOR . 
2167 12800 : 
2168 011726 123727 016134 900200 CNPb DLOTH, #200 
1693 1290¢ ; NO ANSWERBACK FROM TERMINAL 
5152 12950 wrtrriii iti 
gi53 11736 012765 012530 000010 oe hov #724, RPC(RS) 
3175 Ot 17a 768 06000 000004 BI aMERR MELAGS (RS) 
174 011752 06 0004 CLRB MF LAGS (RS) 
217S 011756 012765 013356 o00006 MOV 8€ 14, POINT(RS) 
2176 011764 000207 13250 RTS Pp 
2177 O117 3 500108 
(3) O1i7 50007$: 
2178 011770 oO12701 013220 MOV sT2BuUF Ri 
2179 13400 ;GET THE seLect ODE FROM THE LINE TABLE & 
g18¢ 13450 : REQUES RBACK. 
2182 O11774 113737 016134 o204e4 hove DLOTH, SCODE+3 
2183 012002 0127 o4e1 MOV eSCODE RO 
2184 012006 004737 7110 JSR PC. TYPES 
2185 OleOle 012703 000310 MOV e200. ,R3 : 
2186 012016 105037 013212 CLRB TecnT! 
2187 Ol2022 004737 O1lelé SR PC, GETANS 
2188 13850 ;CHECK FOR’ ANY RESPONSE FROM TERMINAL 
2190 012026 105737 013212 tsts T2CNT 
(9) Ole032 001015 ‘ BNE 50011 
2191 14000 ; ERROR #1 NO ANSWERBACK RECIEVED. 
sics 14030 ertiiiiitit 
141 : 
cigs S1203s QAE7ES QuBs90 gpsese Gee grEATRECREZ ces 
a 
sige 01 11276 tetas 1 bb00 4 MOVB #1, MFLAGS(RS) 
2197 O120S6 012765 013356 oO00006 MOV #€ 14, POINT(RS) : 
2198 012064 BR 50012$ 
(3) 012066 50011$: 
2199 012066 012765 012140 oD0010 MOV #T23,RPC(RS) ‘ 
e200 14a50 ; TEST LENGTH OF ANSWERBACK SHOULD BE 20 MAX. 
eede p12074 123727 013212 900024 émPB TENT , #20. 
($9) Oleloe 411 BLE 50013 
2203 14600 ; ERROR #2 ANSWERBACK OVER 20 CHARS LONG. 
sco 14680 5 a HE Ae eH ee ae , 
2206 012104 oOS276S 100000 oD0004 61s @MERR, MFLAGS(RS) 
2207 Olelle iie765 o00002 o00004 MOVB #2, MFLAGS(RS) 
e208 Oieie0 012765 013404 oo0008 ‘ania MOV #€ 1S, POINT(RS) 
2210 Olele& 012701 o13220 * ” MOV sT2BUF RI 
2211 Olei32 064737 011366 JSR PC, TYPANS 
22ieé Olei3e S0012$: 


” 
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513 618136 136 o00207 ee heealniate 
eei3 1214 E 18200 T23: ; SAVE ccPies OF mgecks. 16;Tines MORE, LENGTH 
1 
e613 15300 : THEN. RE FOE BRE are Ht sam 
g5i§ 12140 0127 122 00010 — hov 3A, RP 
5533 pi eide oi gees pisses yee MOVB Teen, recnte 
2221 O1e154 012701 013220 : MOV 
gece 912160 0:2700 O20S74 ; hate MOV esracKs. ko 
: 15650 K TO STACK3 FOR COMPARISONS 
gss¢ 012164 105737 013212 ‘- iste" ; zen ? 
(5) 012170 001404 8 50 Boiss 
868 BiSisg id6459 oseie rove teenth 
2228 Ole2e00 900771 BR reed 
(3) Oleece SOOLSS: . 
gees Ol2202 105037 013210 sn CLRB TeSAV1, 
2231 o12206 16000 T23A:  ;RESET INPUT BUFFER POINTER AND ZERO COUNTER 
5535 pizene ob2701 01322 — hov aT RI 
2234 pisses 105037 61355 CL #oeRT 
2235 16200 ;SEND SELECT SEQUENCE TO TERMINAL 
2236 16250 :THEN READ ANSWE 
2237 O12216 012700 o204e21 MOV #SCODE , RO 
2238 Oleeee O1e703 000310 MOV 00.,R 
2239 Olesee 004737 O112l6 JSR PC, GEtANS 
2240 Ole2e3e 105237 013210 INCB Tesavi 
ect 16500 iff NO ANSHER-NO NOTIFY OPERATOR 
2c4 * 16550 OLD ANSWER oDIFFERENT FROM NEW ANSWER 
2243 16600 NOTIFY OPERATOR 
2244 16650 3 
2224S 012236 105737 013212 TSTB T2CNT1 ; 
(9) Olee42 O010le BNE 50016$ 
48 16750 ; ERROR #30 NO ANSWERBACK DURING TEN REAC LOOP 
48 iegep 3 SHEKEEEEL EEE 
2249 O1ze4s 052765 100000 o90004 BIS aMERR af Sine 
251 Bisses $iSse2 Bddase Soppo ie 130, He fr LAGS (RS) 
252 Olee66 OG00S00 
s2) BEETS sous S008: ae ne 
5524 17150 * ChRB. Pe AGTHS OF ANSWERS 
2255 012272 123737 013212 013213 inpge are CENcrHs oF 8 
OR come Roy SPR 
s628 iS3Be BASS 4 feral JSR Pc, TYPES 
2258 17350 ;ERROR #31 INCONSISTANT ANSWERBACKS 
P32 17406 eiitiiiitii gd) 
2261 012312 OS2765 100050 ocDD004 hee SMERR, MFLAGS(RS) 
2262 Oles20 112765 000031 o00004 MOVE #31,MFLAGS(RS? 
2263 Olezeé 012765 613356 socaoE MOV #& 14, POINT (RS) 


I06 
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LAFA.P11 O3-JAN-78 il:e2 
2264 012334 oo04ss BR 50021$ 
sees BIE 12701 o1aten S00208: oy a Tomur 
le34e O0le7 020574 MOV wee tes ko 
sees 17800 ;COMPARE MASSAGES FOR SAME DATA 
sees O12 013214 — dir T2 TEMP 
2270 O1s35e 113737 913212 013214 MOVB TSCNTL, T2TEMP 
2271 012360 013216 CLR TOTEMP+2 
2272 012364 012737 OO000i 013216 MOV #1, TeTEMP+2 
(3) Bieaed sooe3s: monn 
(2) Oles™ 00S237 013216 aiiede INC T2TEMP+2 
(5) O1e400 023737 013216 013214 CMP T2TEMP+2, TETEMP 
(7) 012408 003024 BGT 4 
ergs SISSIS BsT88t eer goose” 
2274 181SC sERROR #32 INCONSISTANT ANSWERBACKS 
2275 18200 5 ee 
2276 18250 : 
2277 012414 OS276S 100000 000004 BIS aMERR, MFLAGS (RS) 
2278 OleY¥22 112765 000032 000004 MOVB #32, MELAGS(RS) 
2279 012430 012765 013575 o00006 MOV s&ol, POINT(RS) 
22 012436 012701 013220 MOV aTeBdr, Ri 
2281 Ole4¥4e 113737 O13e13 013212 MOVB T2CNTe2, TECNT! 
22 01e4SG 013737 013214 013216 MOV TETEMP, TETEMP+2 
2283 012456 _ §002ss: 
2284 012456 000746 BR 50023$ 
(3) 012460 50024: 
2285 18700 sECHO ANSWER TO TERMINAL IN ASCII AND 
2286 18750 *OCTAL FORMAT TS. 
2287 012460 012701 013220 Mov sTeBUE AR 
2288 012464 004737 011306 JSR PC, YPANS 
2289 012470 50021$: 
2290 012470 500175: 
2291 012470 032765 100000 oD00004 BIT #MERR, MFLAGS(RS) 
(9) 012476 001401 BEQ Soo26$ 
2292 O1e500 000207 19050 RTS 
2293 012502 So0026S: 
2294 19150 : CHECK FOR TEN ITERATIONS 
2295 012502 123727 013210 oooo1c émPs T2SAV1, #10 
(9) 012510 10 BNE 50027 
2296 OleSi2e 012765 012530 oo0010 MOV #724, RPC(RS) 
2297 012520 0 19300 RTS PC 
2298 OleS22 000402 BI 50030$ 
(32) 012524 50027$: 
2299 O1eSe4 000137 o12206 19400 IMP T23a 
2300 12530 ene 50030S: 
2302 012530 19550 ~=—s-* Te4: ; RESTORE POINTERS 8& TEST THE BROADCAST (BEL) 
303 19600 :WON’T ACTIVATE THE AUTOANSWER 
304 19650 
2305 O1 012701 013220 hov aT2BUF , R1 
2306 012534 105037 013212 CLRS T2CN " 
2307 012540 012702 o00002 MOV aSTx,R2 a 


JO6 
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308 o1es44 737 006654 ISR PC. SECHO 
5306 OL 50 B035, Geo4el : MOV aSCODE RO 
2310 012554 11273 007 oe204e4 MOVB #7, SCODE+3 
2311 Olesbe 737 007110 JSR Pc’ TYPES 
2312 012566 012703 000310 MOV e200. , 3 
2313 OleS72 004737 Ollelé6 JSR PC. GETANS 
a) Biscoe Seri Oe a 
2315 20050 ;ERROR #4 RECVD ANSWERBACK FROM BROADCAST 
e316 20100 5 ie ee ee He Ea EE 
2317 20150 : 
2318 012604 7 100000 0 81s aMERR, MFLAGS (RS) 
2319 Oleble iie765 O00004% oO00004 MOVB #4, MFLAGS(RS) 
2320 Ole620 012765 013632 oc0006 MOV #22, POINT(RS) 
2321 Olebe& 012765 012636 000010 MOV #T2S; RPC(RS) 
cuss Bless OOO” ns Sat 
2324 012636 2050 Tes: sIF IN MULTI_LINE MODE SETUP NEXT LINE POINTERS 
2325 20580 : IF SINGLE LINE MODE TEST KEYBOARD STUFF. 
2327 012636 032737 OO0040 001364 BIT #MULTI,PCFLAG 
(9) 012644 001424 BEQ 5 
2328 012646 004737 002110 JSR PC .LINMON 
2329 Ole6Se 012765 012734 o00010 MOV at RPC (RS) 
2330 012660 032737 OO0400 001364 BIT SLDONE , PCFLAG 
(3) 012666 001406 BEQ 3$ 
2331 012670 042737 OO0400 001364 BIC #LDONE , PCFLAG 
2332 O12e676 OSe76S O20000 o00004 BIS STDONE . MFLAGS(RS) 
2333 012704 50033$: 
334 012704 012765 011546 o00010 MOV #T21,RPC(RS) 
2335 Ole7le 000207 21000 RTS PC 
2336 012714 O00Si2 BR 50034S 
(3) O1e716 50032S: 
2337 012716 113737 016134 o204e4 MOVB DLOTH, SCODE+3 
2338 012724 012700 o20421 MOV sSCODE .RO 
2339 012730 004737 007110 JSR PC, TYPES 
2340 012734 21100 TeSA: ' 
(4) 012734 012765 013034 990010 MOV #726, RPC(RS) 
2341 Ole742 012701 013220 MOV eToBUr Ri 
es4e 012746 0127: oo00002 MOV aSTX,Re 
2343 Ole7S2 0047 006654 JSR PC, SECHO 
pany 21300 ;SET UP TO’ TEST HERE-IS KEY SINGLE LINE ONLY 
2346 012756 012700 013252 Mov #HI,RO 
2347 012762 737 007110 JSR Pc, TYPES 
2348 012766 105037 013212 CLRB T2tnTl 
e348 012772 012703 007640 Seen MOV #4000. .3 
5324 012776 004737 011216 JSR MBE GE TANS 
2352 013002 105737 Ol3ele TSTe TetnTl 
(9) 013006 9501012 B A Ss 
2353 21750 ;ERROR # NO ANSWERBACK FROM HERE-IS KEY 
e354 21800 Serre errT 
Sac 013010 OS27%5 100000 oD0004 ae bts #MERR, MFLAGS(RS) 
a 
2357 9813016 112765 O0000S 9s00004 MOVB #5, MFLAGS(RS) 
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2358 013024 012765 013475 oD00006 MOV #£17,POINT(RS) 
2359 013032 000207 22050 RTS PC 
2360 013034 sortie 500353: 
2362 013034 22200 «3=s« T2b: ;TEST CTL-E FUNCTION 
2363 ee2s0—Cts : 
2364 22300 ;SE7 UP TO TEST CTL-E FUNCTION 
2365 22350 : 
2366 013034 012765 011726 000010 Mov aT22,RPC(RS) 
2367 013042 012701 013220 MOV aTosur Ri 
2368 013096 012700 013305 MOV aCE, RO 
2369 O1 27 007640 MOV , 
23 13056 1 013212 CLRB T2CNTi 
2371 013062 004737 007110 ‘ ISR PC, TYPES 
2372 013066 004737 011216 JSR C GE TANS 
2373 013072 105737 013212 TSTB TetnTl 
(9) 013076 901013 BNE 50036$ 
2374 22800 ; ERROR 86 NO ANSWERBACK FROM CTL-E KEY 
2375 e28so0 rtiititit : 
2376 22900 
2377 013100 OS276S 100000 oD0004 brs SMERR, MFLAGS (RS) 
2378 0131068 112765 O00006 000004 MOVB #6, MFLAGS(RS 
2379 013114 012765 013540 o00006 MOV #£18,POINT(RS) 
2380 013122 000207 23100 RTS PC 
2381 013124 000406 BR 500378 
25a2 Bt Sise 052765 O20000 oDp0004 a BIS STDONE , MFLAGS(RS) 
2383 013134 012765 011726 O00010 MOV sT22,RPC(RS) 
2384 013142 S0037$: 
2385 013142 50034S: 
2386 O:3142 000207 23400 RTS PC 
5386 g3280 iTNIS ROUTINE IS THE KEYBOARD INTERRUPT HANDLER 
2389 $3205 TOR TESTS #1 AND s 
5330 $3000 wererirttrtt + 
2392 013144 117721 002766 23700 T2200: Move QDVCRXB, (R1)+ ;STORE CHAR IN POINTER 
2393 013150 052737 O04000 001364 23750 BIS #OATAIN. PCFLAG jSET DATA-IN FLAG 
2394 013156 012777 O00101 O02744 23800 MOV #101, DLADR EENABLE | Ne. RECVR 
2395 013164 005037 007564 23850 CLR DELAYT ; ABORT The TIMEOUT 
2336 013170 000002 23300 RTI 
2398 013172 SOO00S: 
(32) 913172 50001: 
(2) 013172 090207 RTS PC 
2399 24OSO =—«_—«g HRN EE 
2400 24100 ‘DSABL LSB 
2401 013174 000 003 24150 -BYTE 0,3 ; ITERATION COUNTS 
2402 013176 o00000 24200 TO2BLK: .WORD O :CTLCNT 
2403 013200 000000 24250 :WORD OQ :PASS COUNT 
2404 013202 24300 -WORD O :STATUS FLAGS 
240S 013204 000 24350 D : :POINTER 
2406 013206 011546 24400 RD 21 :RETURN PC 
Side Stasis GR evseo eeRvi: cevie 8B 
2409 013213 000 24550 TecNTe: .BYTE O 


LO6 
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CZLAFA.P11 © O3-JAN-78 11:20 LA36 OPTION TESTS SEG 0076 
2410 01321 29600 “TeTEMP: “WORD 0,0 : 
e411 Ot 900000 2160S TeBUF: .WORD 0,0,0,0,0,0,0,0,0,0,0,0, ; BUFFER FOR ANSWERBACK 
o1 
1 
01 
5413 Su700 .NLIST BEX 
cuit 913252 OOSIS OuesOy O511e0 eu HT: -ASCIZ 16) <1) “DEPRESS HERE IS_°7 KEY/<1S> «12 
eis Ol 1 12 131 400 CE: VASCIZ «<< 15><1e>/TYPE CONTL-E7<15><12> 
17 O1 1 1 12: A <15>¢12><12>/TEST 2 AUTO ANSWER/<1S>< 12> 
Sig 813386 BaPeie Baaaah BSIEPe Sys) 274. ASELE 7nB ANUEABACK Recvo/ 18> cie> 
cise Blawe Girisl Bytise Gules! Sees Ele! Aeris “aveenee fee fUmtafhes nar io) 2 
e421 013475 110 051105 10s 381 E17 “Asc? | “HERE Ts BEON'T TXMIT-ANSBACH. <15><12> 
S45 013875 101 OSiSie Giese? B8200 EZI: — “ASCIZ “ANSWERBACKS DION'T COMPARE /<15) <Le> 
evict 013632 ON7101 O411e3 O4IS01 e520 Eee -ASCIZ © /ANSBACK RECVD FROM BROADCAST SELECT/< 15) 12» 


e426 25350 .LIST BEX 
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gt Royse 3-JAN-78 vee Lad OPTION reste SEQ 0077 
588 Sed PPC eE Sse re ree rss errer rere eee 
Saat Seo TESTS TOP OF FORM OPTION 
e432 go550 ; OPERATOR INTERVENTION REQUIRED IN SINGLE LINE MODE 
2434 25750 jR RRR RHEE RRR EER EERE ER EE EEE ES 
g2800 .ENABL LSB 
e437 913700 912700 014376 25900 TEST3: nov BT3, RO. ;SU FOR TEST HEADER 
2439 13740 ae] 014342 26000 MOV gana ;SET UP POINTER TO MODULE BLOCK 
2440 13319 $ badoy 001364 26050 BIT PCFLAG ;CHECK FOR SINGLE LINE MODE 
Suu Bia7e4 bis7oL Stes Roy. oe site: 3 
4 1 12701 000102 6150 1S: v 866. LL COUNT FOR Hi FoRMS 
2443 013730 113 016167 26200 MOVe FreRS™ :MOVE TO TOP OF fF JRM 
2444 01 34 7 70 JSR PC‘ MECHO 
244s 13340 12 26300 2S: MOV #ack Re 
013744 0047 006270 JSR PC, MECHO 
2447 O1 26400 R 
1 1 26450 BNE 
244g oi oes 016700 O1yue7 26500 MOV HAS. R 
tie 
Suey 613589 Bes 526 sets 000004 266 are A YOONE, FLAGS(RS) ;SET ATTENTION & DONE FLAGS 
sues 013772 000207 26700 RTS PC 
ize 5 REE REE EERE 
5 ; THIS SECTION FOR SINGLE LINE MANUAL INTERVENTION 
28 13774 O1 13774 : MOV # (RS) T RETURN PC TO HERE 
Sua Biaoae Bis7s? Blasio Ponsee Speen 3S MOY Sabac’$$GRy, BET PEST Oe Form CENGTHS 
2459 O14010 O1 014362 014354 27000 MOV #F ILL3, TISAV :GET FIL COUNT 
2460 014016 ater O14 nov HORS : 
te 
sues pti Beede , $3188 nee BCanee ;SET UP MESSAGE WITH 
2463 014032 112037 014564 7200 MO (RO), +5 i INSTRUCTIONS FOR 3” 
Suge Bisoss tt 1uzee 7580 Ho (ROD HORGs?? TORS 
i 111 i 7 (RO) +7 
2466 O14O46 O1 4557 27350 «= AS: MOV sHORY ;SEND SU MSG 
E34 1 7 0 74 JSR TYPE 
1 1 T4aee 74 MOV T 1 
2469 O01 11 14564 75 MOVB (RO)+, +5 s MODIFY INSTRUCTIONS FOR 
2470 Ol 112037 O1NS65 27550 MOVB (RO)+; +6 :NEXT LOOP 
2471 Biuoes 12037 014566 27600 MOVB (RO) +) HDR4+7 
247 014076 16037 014356 27650 MOV RO, T3SAV1 ;SAVE THE ob ist POINTER 
2473 0141 1 14124 27700 ~=«s«SS:: MOV 6s ; PASS 6S AS VECTOR TO READ ROUTINE 
74 014106 004 7124 7750 JSR PC, READS : GO SET V 
75 O14ile2 o17 30 7800 MOV #15000. Re :SET UP 15 SEC DELAY 
suo? Diuies ppodee OO OmY 27300 ‘i RI - Teed 
2478 014124 007564 6S: CLR DELAYT ;ABORT THE TIMEOUT 
24739 014130 052737 OO4000 001364 oacep BIS SDATAIN, PCFLAG 
2480 014136 28050 RTI 
Sues Biuies GoN7e? Barlib - OeR pk si pes SEND CR/LF 
; SEN 7L 
2483 O141S0 042737 OO4000 001364 38285 BIC ADATAIN PCFLAG ;IN CASE LINE 0 
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-JAN-77 
OPTION T 
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wa 


TOSBLK: 


NO& 


#9! PAGE 3-13 
ST 


et piel IN_ CASE i Mt ta ERROR 


re :GET FILL 


HO ;00 FORM FEED 

at ko 
Pc, 5t HO ;SEND FILL CHARS 
7$ s COUNT NOT Done - BRANCH 
#05 80, 

Ft Re ;SEND CR/LF 

SECHO 
: S5AV, T3SAVE ;GET FILL COUNT 
pr eRe a :D0 FORM FEED 
#ack gb ;SEND ACK CHARS 
reste 

. ;COUNT NOT DONE - BRANCH 

pee hes ;LINE OF DASHES 
aL. Re , 

PC, SECHO 
T3SAV ;GET NEW FILL COUNT 
T3SAV1, SHDRSE sEND OF INSTRUCTION LIST? 
Ags, - DO’ NEXT 
STDONE, MFLAGS(RS)”” ;SET ATTENTION 8 DONE FLAGS 
PC 
0,3 s ETERATION COUNT 
0 TLCNT 
0 ASS COUN 
0 fa FLAGS 
0 : TER 
is :RETUR' 
: ; STORAGE 
0 


18.,21.,24. +33. ,36.,42. ;FILL COUNTS FOR TEST 3 
48: '°S1-’66. BY. 18 
cigs Las c188 TEs OP OF FORMS/<15><12> 


/SSSS2Sz2E2E2/ ( 
ones TOF RESET SWITCH/<15>< 12> 
AFTER Ry: ro ae SETTING/<15><12> 


Ye ¥/¢15><12> 
/-SE — INCH FORA FEED/ 


BO? 


CZLAFAO LA3S6 TERM TST  MACY11 30A(1052) O3-JAN-77 00:01 PPGE 3-14 
CZLAFA.P11 03-JAN-78 11:20 LA36 OPTION TESTS SEG 0079 
es 014621 040 033040 31050 -ASCII 7 6/7 
2541 O146e4 02004 067 31100 -ASCII 7 ?7 
eS4e 014627 O 034040 31150 -ASCII 7 8 
sea 1 Nese 027070 0 31300 -Baktt 78.S/ 
44 J1 O 030461 1eSO HORSB: .ASCII 7 11/7 
es4s 014640 030440 ] 31300 -ASCII 7 lev 
eS46 014643 0 032061 31350 -ASLTI 7 14 
es47 014646 020040 31400 HDRSA: .ASCII 7 37 
es4#s 014651 314S0 HORSE: 
es4s 014652 31500 - EVEN 
e550 31550 .LIST BEX 


CO? 


CZLAFAO LAS TERM TST MACY11 30A:10S2) O3-JAN-77 00:01 PAGE 3-15 


PC .MTYPE 
o1seee 33198 38: BUR BB.THSAVE rene HAT ee FORT BERNEANE 
33200 TYPE BL. og 9] + Salata 


oe an. :Sfakpern'® FOR 


CZLAFA.P1i 03-JAN-78 11:20 LA3& OPTION TESTS ceo 0080 
esse 31650 .OSABL LSB 
2s53 31700 
ess a176n PPRPERSSHSKLSSS HSA SALAS Seer seer eee 
ss 1 
556 31880 iTesT4 HORIZONTAL, TAB OPTION 
ess 1900_—sés; IF USING OTHER THAN 132 COL PAPER CHANGE LOC “WIDTH” 
see 34388 ; TO wPPROPRIATE VALUE. SEE WN COMMAND . 
eee EP REE RR EEE ES 
56s 35138 TEST4: MOV oT EK. »RS ;SET UP POINTER TC MODULE BLOCK 
2564 32250 =; _- PRINT Test HEADER 
Ea 01S264 32 T41: MOV & AbLY Fusave 
256 000010 324 ' MOV eT42, RPC(RS) 
S268 T42 MOV of Re 
3 015262 MOV WIOTH, TYSAVI 
2570 SO =; SEND ESC-2 TO RESET PLL TABS. 
2571 JSR PC HO 
$255 32650 mov 2 
eo74 015316 x T es 3. TAB GET TAB COUNT FROM TABLY 
5875 35200 cove Braaeye. , 
2S76 32850 CLRB aT4save ; INITIALIZE COUNT TO ZIP 
2$77 32900 nov TAB, R 
3378 35608; seno cht 
58h : 
SeRe 
2586 
Fa14 
2659 





33350 MOV 8’. Re :PRINT PERIOD 
R PC. , MECHO 
33250 Ss: ;SET TAB 
2330 " 33550 ; SEND eSent TO Freel ’ 
2592 015020 012702 O00061 nov 
233 015024 004737 006270 oe ion a 7 Pc, a 
2595 015030 0 9009 3800 
amas ang oa 
5698 015040 01 000 3950’ 
2599 015044 hacia 006270 . men Pc, - . 
Vv 
seor Bieces diss01 Siete Mt hove Tasave. ice AB POS ACAI 
e6de 015060 000740 34150 BR 3s FORMAT NEXT SECTION 
sone icoe LINE SHOULD LOOK LIKE THIS: .....V.....V.....V.. ETC 
2605 O01 012737 > 015266 34300 : MOV 83, COUNT 0 TABS 
2606 812068 ois? 7 alee pi esee 4350 $3: MOVB SfaSave Tas iGEy 1g Count 
2607 915076 001440 34400 BEQ 118 =0? - BRANCH OUT 


CZLAFAO LAZ6 TERM TST 


CZLAFA.Pil 03-JAN-78 11:20 
geen BIELBS BRSREG BIORSS 
Sia SIR STR SRERIP 
oe 
ois 1$1 127 
sis CHS fre, SIEEE 
3632 bieiso Ole70e 000130 
2623 015154 004737 006270 
e624 O15160 005337 015316 
Be BH BL? ois2., 
2be7 plaice 005337 015266 
a Bliss Berm gir, 
See blesie 023727 015264 blesis 
634 01See4% 001226 
Ss 1H fey wen mom 
2639 o1Se44 oo4 
SY Bis pe 
cia Slisas Boe 
14 
2645S 
2646 015260 000000 
ce iis Boe 
2650 
sees Bes 00084 000 002 
Satie: fe of i 
ce fil oe 
ee tise BRO 
seco HEE soot 
=ecS FiSse Berle SSeDIE: guIENE 
915334 O44Se2 6047532 OS2116 


MACY11 30A:10S2) O3-JAN-77 00:01 PAGE 3-16 


LA36 OPTION TESTS 


O07 


450 INC T4SAVe 
4500 - MOV #L1,R0 
34550 =; SENC A CRYLF 
JSR PC _MTYPE 
34650 —=s «BS: V ail ,Re 
34700 =; SEND A HORIZ-T “ 
34800 neve afderivg, THSAV ;GET FILL COUNT TABS 2 
9s: MOV BACK, R 
34900 ; SENO FILL CHARACTERS 
J PC, MECHO 
35000 Cc T4SaV 
35050 3g 
100 MOV a’x 
150 ; PRINT AN X UNDER EACH V 
JSR PC. MECHO 
35250 DEC Tab ;DEC TAB COUNT 
32305 Bre POR POINTER 
C 4save :FIX POINTER 
4 108 DEC T :00 3 LINES 
4 BNE :NOT DONE - BRANCH 
11$: MOV #L3,R0 
S JSR PC, ATY 
ADD #2’ TYSAV ;GET NEXT TABLE ENTRY 
35650 CMP T4Save, sTAB-1 ; OF TABLE? 
35700 BNE ;NO - DO NEXT SET 
22 BIS #TDONE , MFLAGS (RS) ;SET ATTENTION AND DONE FLAGS 
MOV 8741, RPC(RS) 
Be RTS PC 
i BYTE 0,4 ; ITERATION COUNTS 
TOYBLK: - WORD - :CTLCNT 
‘ ; COUNT 
36300 - WORD Q $ Seven Unes 
3300 “HOR Fue 
reas T4YSRV STORAGE 
36580 Tueavi: “HORE 6 : 
THSAVe: |WORD 0 
Cy 
OUNT : - WORD 2 
ABLY: “VIE 4-%8,, ;TAB, TAB COUNT, FILL COUNT 
3860 a BYT 3.'0's ; TABLE FOR TEST 4 
36950 ‘BYT 16: 0.8. 
37000 “BYT 18.'0'10. 
7050 "BYTE 32.°0°17. 
37100 ‘BYTE 64.°0'33.,0 
371S0 ‘TAB: .WORD O 
37200 «74: "ASCIZ <15>«12><12>/TEST 4 HORIZONTAL TAB <15><12> 


w 


we 


266: 


03-JAN-78 LAZE OPTION TESTS 
i1$342 9046101 
18350 O0050i5 

01S3S4 


OS204O 041101 
000 
37250 EVEN 


EO? 


CLLAFAO LAE TERM TST rye 30A.\1052: O3-JAN-77 00:01 PAGE 3-17 
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CZLAFAO LA3E TERM TST MACYL1 30A‘\10S2) O3-JAN-77 00:01 PRGE 3-18 
CZLAFA.PLI 03-JAN-78 11:20 LAZ6 OPTION TESTS SEG 0083 
2663 37350 
2664 Tae see PRR ERE REE EEE Eee ET eee EES 
2665S F 
66 37500 ;TESTS VERTICAL TAB OPTION 
eee; 37550 : SINGLE LINE TEST REQUIRES OPERATOR INTERVENTION 
2669 3765 eee Re RRR REPRE REET EER HES 
2670 37528 -ENABL LSB 
se53 15354 01 16040 35409 TESTS: MOV #75, RO SU TEST HEADER 
267 pi e3eq Biss ratte 358e3 “MOV sTOSBLK RS ;SET POINTER TO MODULE BLOCK 
2674 015364 004737 007010 JSR PC MTYP 
2675 015370 032737 OO0040 001364 37950 BIT eMULTI,PCFLAG ;MULTI LINE MODE? 
2678 015376 001046 38900 BNE 4S : YES = BRANCH OVER INTERVENTION 
154 1 014635 050 MOV sHORSB, RO : UP INSTRUCTIONS 
sera Diewic iisose ofyeee 36190 ve aS ees 
2680 O1S414 115833 14566 382 nove ( 3 HD RUS? 
2681 38250 =; TYPE INSTRUCTIONS 
2682 015420 O12 014443 38300 «tsi: MOV 8HOR3, RO 
2683 015424 007110 JSR PC, TYPES 
2684 015430 012700 014557 38400 MOV sHOR4 , RO 
2685S 015434 004737 007110 JSR PC, TYPES 
2686 015440 012702 01S 38500 MOV a3$, Re ;SU FOR INTERRUPT TO 3S 
2687 g1s4u4 0047 0071 38550 JSR PC READS : INITIALIZE VECTOR AREA 
2688 O154SO 012702 035230 38600 = 2S: MOV #1 . Re sALLOW 15 SEC. 
2689 015454 004737 007024 38650 JSR Pc ReaD! 
3630 015460 032737 004000 001364 38700 BIT SDATAIN, PCFLAG 
2692 ret ze 042737 OO4000 001364 38800 BIC SDATAIN, PCFLAG 
2593 015476 000406 388S0 BR 4§ 
som} 38200 ; eeeeeRERREREREE THIS SECTION HANDLES RECVR INTERRUPTS####eeee2% 
2696 015500 005037 007564 39000. «=s 4s: CLR DELAYT ;ABORT THE TIMEOUT 
2697 015504 052737 OO400C 001364 33080 BIS SDATAIN,PCFLAG ; FLAG RECIEVED CHAR. 
2698 0iSSi2 oo00002 100 10S: RTI 
5590 33200 j EER ER ESE EEE EE 
2702 015514 012737 OD0002 o15266 4S: MOV #2, COUNT 
2703 015522 012765 015514 900019 50 MOV #4$, RPC(RS) ;SET RETURN TO 4$ 
2704 015530 012737 1 0160 MOV #1, CINES 
Sooe blseas piers? BOeBIS O16034 34e00 Sov swe Max 
3707 0155S0 O0i2702 000033 39550 eae = sec ihe ;RESET ALL TABS 
2703 015554 004737 006270 ; R PC 
e710 O15 0127 oooos 39700 MOV #4 Re 
5313 eae 013701 Oreo ae 39800 «SS aeu PE becuo GET LINE COUNT 
e713 015574 Oi2702 o000le 33880 68: ND nov reep tte Re ; 
2715 015600 004737 006270 . J PC, MECHO 
2716 015604 1: 40000 DE Ri 
2717 O15606 001372 40050 BNE 6$ 
2716 O1S610 O12702 o00032 46190 MOV #ESC,R2 :SET TAB 


GO? 


Ste ree TERM TST rely 30A:.10S2) O3-JAN-77 00:01 PPGE 3-19 
Cou ll : 


AFA. 03-JAN-78 1 LA3E OPTION TESTS 
gree oles Biozas bobdES 40200 nov AZ yo 
e72) ven ie 402S0 ; ESC-3 SETS A TAB LOCATION. 
¢ va 
eres gieeS0 pO 3580 poesso 40350 MOV AAS RO 
2725 oi seas 004737 007010 ISR PC, MTYPE 
7 4 L 
gs Bt aa B93535 BiBBSs 016034 upeco ine LIMES ax ;11 TABS YET? 
ca Slee fuze coag SSD vs. RY Hyues, RESET CRE" coue 
H0000 : ’ : - 

ssa leees Bisra; ORODRL BIERNE SHR88 YSU, eS 
2731 015670 Ole702 000013 40750_—=Cé«@SS: MOV #13,Re 

. or ° me 40800; SEND A VERT-TAB COFIMAND . 

$33 Bi2850 reed 8885 40900 ««o°9S:: MOV watk gD 
S73 015704 04737 006270 a 8 ree acter. 
S537 O18r10. 005337 016030 41050 C TSSAVi 
2738 O15714% 001371 41100 BNE 3S 
2739 41150; 
erat 41209 : CONVERT NO. OF LINES FOR OUTPLT MSG. 

742 015716 013746 016032 41300 ° MOV LINES, -(SP) 
2743 015722 O1274%6 016071 41400 MOV ste ~(SP) . 
2744 015726 004737 010006 41450 JSR PC, BiNeDA 
Sous DLeT36 ONNIa? bOroIE aieso a 
Hai B1srue 12700 Braue? 416) 8 abu Ri ;SU LINE OF DASHES 
ous i ins 2 7 tease 417) Ine Uy “Na Wd LINE COUNT 
S58 Bt 5e B03535 pi eg3s 016030 41585 MOV LINES recavi Pet. ACen =@L INES 
2751 015764 023737 O16032 016034 41800 CMP LINES, :11 TABS DONE? 
eee 015772 001336 41850 BNE 8S :NO - CONTINUE 

7 015774 337 O1S26e 41900 DEC COUNT :DO 2 PAGES TOTAL 
2754 016000 1325 41950 BNE 7$ "RE-DO PAGE ce 
e755 016002 OS2765 o20000 oo0004 42000 BIS #TDONE , MFLAGS(RSS ;SET ATTENTION & DONE FLAGS 
e5e5 016010 0900207 42100 RTS PC 
552g use 
2760 016012 000 002 wees0 one on Buia “a Sule vias ; LTERATION  CounTS 
55 plete eteleete 5390 LK: -HOR C :PASS COUNT 
crea lense ponost a ioe ‘Bintenr °° 
e765 01 015420 42500 "WORD TS1 :RETURN PC 
2767 016026 o00000 42600 TSSAV: .WORD O 
2768 016030 o00000 42650 TSSAVI: .WORD 0 

2769 42700 

2770 016032 42750 LINES: .WORD O 

77 016034 wee MAX: - WORD 0 

77 16 0 428 TABS: ‘WORD O 

2773 O16040 005015 oS2012 oSiSOS e900 ‘TS: "ASCIZ <15>¢12><12>/TEST S VERTICAL TAB’<15><12- 

CI6046 O20124 O2006S oO4e5e6 





O07 


CZLAFAO LA36 TERM TST MACYI1 30A.1052) O3-JAN-77 00:01 PAGE 3-20 


CZLAFA.PLI O3-JAN-78 11:20" LA36 OPTION TESTS 
GieSES BEGLEG BULTAE S3b4TY 
e774 016071 060 630060 030060 4esS0- TSe: -ASCIZ 700000” 
016976 000 
2775 016100 43000 - EVEN 
evr 4305 -OS»BL LSB 





10? 


co-ees. i TERM TST MACY11 30A(10S2) O3-JAN-77 00:01 PAGE 3-21 
C2LAFA.P O3-JAN-78 11:20 STORAGE 8& CONSTANTS 


as r 43150 2 aba . SBTTL STORAGE a, reas tedhecdhanehse 
2780 4 . 43250 iy shoteda's? stonace. wR NST éTanTe: * GRD. VAR TABLES 
2782 43350 . EVEN ’ 
e783 016i00 oo0000 oo0000 Goo00d 43400 TEMP: . WORD 0,0,0,0,0,0 ; TEMPORARY WORK AREA 
016106 o00000 o00000 900000 
27. 016114 oo0o004 434S0 INBUF : - Sky 4 ; INPUT BUFFER 
2785S 016124 177570 43500 SWR: 177570 : SWITCH REGISTER POINTER 
e786 43550 :MA Lm D TO 176 
54 14 izeey s HHERKHRRBRHRHEEE 170 DRIVER WORK AREA alssssaacasebosooes 
27’ 016126 Goa0000 43700 OLFLAG WORD OQ ;LINE FLAG WORD 
2790 016130 9000900 43750 LADR RD 0 ;LINE ADDR 
e731 gibize 000000 438 DLVEC: WORD 0 sL ENS VECTOR WORD 
e732 16134 00 43850 OTH: RO 0 st “OT 
27393 016136 900000 439 VCRXB: .WORD 0 ;RECIEVER A BUFFER 
2794 016140 43950 VCTXS: RD 0 ; TRANSMI S ATUS REGISTER 
2795S O1614%e oo00000 44000 VCTXB: .WORD 0 : TRANSMIT DATA 
te | 016144 ine XVEC: WORD 0 ; TRANSMIT INTERRUPT VECTOR 
27398 44150 RHERRKRSRHREE GENERAL USE Hee eee REERERERELESERRES ESE SES 
2799 016146 44200 WIDT RD 132 
016150 000000 44250 SAVE WORD O 
2801 0161Se 44300 : D is) sNEXT TEST NO. 
0161S4% 000000 44350 INTEST: .WORD 0 URRENT TEST 
2803 016156 00 44400 TESTAD: .WORD 0 ;CERRENT TEST PC. 
2804 016160 000000 44450 IN: 0 ; CURRENT LINs UNDER TEST 
280s 016162 00 44500 NXTLIN WORD 0 ;NEXT LINE TO TEST 
cour Bless Ids weap bet: TOE zr ‘een: te 
“¢ 
esos o16i&b7 014 44650 FF: BYTE 14 








JO? 


EELRERO. LOSS TERM Ano7e Tisag. 2On' 1052) sbRade es ConSTANTS S€o 0087 
281e 44900 se eRe RHEE EEE EEE EEE EHH eee eS F 
2813 . 44950; LINE INTERFACE TABLE , 

2614 45000 Fee RR ERT RHEE RRR EEE EEE EER EEE EERE EE F 
seie B16120 oooo0g 177560 000000 ue100 LINOO: .WORD 9O,177560,0,0 ;CONSOLE INTERFACE 

2817 Bibs 4 175610 o00000 4SiSO LINO1: .WOKOD 0O,175610,0,400 ;0L11-€,0,& LINES 

2618 Olgels ited 178620 O00000 4S200 LINO2: .WORD O,175620,0, 1000 

2819 i esse C: 175630 oo00000 4S2S0 LINO3: .WORO 0O,175630,0,1400 

2820 “i ose 175640 000000 4S300 LINOY: .WORD 0,175640,0,2000 

2821 pice oistoretel 176500 oo0000 45350 .LINOS: .WORD 0O,176500,0,2400 

2822 plese: 176510 oo0000 4S4O0O LINO6: .WORD O,176510,0,3000 

2823 Stace pee 176520 oo0000 4S4SO LINO7: .WORD 0O,176S20,0,3400 ;FIRST WORD : FLAGS 
28e4 biesto 176530 o00000 4SSO0 LINIO: .WORD O,176530,0,4000 ;BIT 1S = DVC PRESENT 
2edy 16300 Bo0000 175650 o00000 4SSSO LINI1: .WORD O,175650,0,4400 ;BIT 7 = DVC SELECTED 
2626 Biesid 000000 175660 OO0000 45600 LINI2: .WORD 0O,175660,0,5000 ;BIT 4 = ABORT FLAG 
2827 pibse? 000000 175670 OO0000 YS6ESO LINI3: .WORD O,175670,0,S5400 ;BIT 3 THRU 

2528 piesa bo6000 175700 oo0000 4S700 LINI4¥: .WORD O,175700,0,6000 ;BIT . = ERROR COUNT 
2829 tat bier 175710 o00000 45750 LINIS: .WORD 0O,175710,0,6400 

2830 piesep oon. 175720 oO0000 4S800 LINI6: .WORD O,175720,0,7000 

2831 iter 900003 178730 ooo0odo 45850 LINI7: .WORD 0O,175730,0,7400 ; THIRD WORD WILL CONTAIN 
2832 pibsce Stewed 178740 oO00000 45900 LIN20: .WORD O,175740,0,10000 ;THE DEVICES INTERRUPT 
2833 piste Stated 176S40 o00000 4S950 LIN2i1: .WORD 0O,176540,0, 10400 ; VECTOR ‘SUPPLIED BY PROGRAM? 
2834 tate Teter 1765SO OO00000 46000 LIN22: .WORD O,176550,0,11000 

2835 46050 

2836 pieieD sc 176560 OO0000 46100 LIN2@3: .WORD O,176560,0,11409 

2837 tt at Sheed 176870 OOOO00 46150 LINe@4: .WORD O,176570,0,12000 ;WORD FOUR : 

2838 yt ete 176600 OO00000 46200 LINeS: .WORD O,176600,0, 12400 ;BITS 7 THRU O 

2839 Stato ‘Teves 176610 OOO000 “6250 LINe6: .WORD O,176610,0,13000 ;WILL BE SET TO 

2840 “Stare ete 175750 oOO000C 46300 LIN2@7: .WORD O,175750,0,13400 ;UNIQUE SELECT CODE 

2841 Rieaoe bo3000 178760 oOoOoooo 46350 L INZO : .WORD O,175760,0,14000 

es4e 016500 178770 OOO000 46400 LIN31: «WORD O,175770,0,14400 ;BITS 13 THRU 8 





EEL AERO Ase TERM ANL7e Nicene (On 1082) ORade B CONSTANTS Seo ones 
6506 O144OC . 
2843 016510 176000 000000 46450 LIN32: .WORD 0,176000,0,15000 BINARY LINE NO. 
2ewy Ole 176016 000000 46500 LIN33: .WORD 0,176010,0,15400 
aeus O16 9 176020 000000 46550 LIN34: .WORD 0,176020,0, 16000 
zeus O1eea0 90 176030 000000 46600 LIN3S: .WORD 0,176030,0,16400 
2847 b5ts D0 176040 OO0000 46650 LIN36: .WORD 0,176040,0,17000 
2848 176620 000000 46700 LIN37: .WORD 0,176620,0,17400 
2849 176630 000000 46750 LINYO: .WORD 0,176630,0,20000 


176640 OO00000 46800 LIN41: .WORD 0O,176640,0,20400 
176650 OO0000 468SO LIN4Y2: .WORS O,1766S50,0,21000 
176660 OO0000 46900 LIN43: .WORD O,176660,0,21400 
176670 OO0000 46950 LIN44: .WORD 0,176670,0,22000 
176050 oO00000 47000 LIN4YS: .WORD O,1760S50,0,22400 
176060 OO0000 47050 LIN46: .WORD O,176060,0,23000 
176070 000000 47100 LIN47: .WORD O,176070;0,23400 
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2857 pec 176100 oo0o000 47150 LINSO: .WORD O,176100,0,24000 
2e8ss8 £700 176110 000000 47200 LINSI: .WORD 0O,176110,0,24400 
28s93 2318 176120 oOOon000 47250 LINS2: .WORD O,176120,0,25000 
23860 e750 176130 oOO00000 47300 LINS3: .WORD O,176130,0,2S5400 
2861 72) 176140 OO0000 47350 .LINS4: .WORD O,176140,0,26000 
2862 eh ise 176150 ooo000 47400 .LINSS: .WORD O,176150,0,26400 
2863 ecee agate 176160 OO0000 474SO LINS6: .WORD O,176160,0,27000 
2864 oe goues 176170 ooooodo 47500 LINS7: .WORD 0O,176170,0,27400 
2865 6770 177777 47550 TABEND: .WORD -1l 
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ni aa ;* * # “ey aeaeRnRERSea SRR RRR RRR RHR HR SHH 
3 4 ; YSTEM MESSAGES 
70 4 09 .NLIST BEX 
? 4 
Sao2 016772 o0S01S 055103 47 PROGID: .ASCII <15><12>/CZLAFAO LAZG OPTIONS TESTS” 
73 1 1 47 Bart RUS START AT ev 
ee ee a me OT 
2876 917103 le 481 0¢ COMSUM: ASCII SINGLE LINE 7¢4S) «42> <1 
171 ll 4615 . ASC 74 MUL a i 7¢15><«12>¢1> 
2878 017166 O20lel 48200 -ASCII 70 SEQUENCE TESTS/<15><12><1> 
Aaa a a cE ae ee eee 
1 7A 7AN L nN” 7¢15><12><1> 
S863 Bizase paris? deco “Becht Zu Oiprice ME BPR ero AS. 185. <5 
17 1 46450 7WN C I TO N/<15><.2><1> 
2884 017413 114 4 ASCII “AL Loop RROR 7618) <18><1> 
288s 017443 149 “ASCII 7H HALT RROR /<15><1e><1> 
See? O17e42 0201 4 ‘Beet? om 46s«SGRTGIE REPORTS Valier 
2888 Bi sera i 38 ‘Bact 7P apie +4 7¢15><12><1> 
2639 O1 BSCt 7ESC TO EXECUTE COMMAND STRING/<15><12>«12> 
2890 017676. HEADR2e: . ¢15><12>¢12>/LINE® ADOR VECTOR SEL/ 
2831 Ol ti: -ASC <15><1la2> 
see Stra eel Boo 17” 
2894 017752 030060 V: [ASC 7000. 
2esg9s O17751 Ose iy BRD: ‘BScts Z#ERROR, 000_TEST 09 LINE 00/¢15><12><«7> 
2896 1 - 491 Ri: x Z  72997¢15><1e>< 
p+ +14 020032 026455 7111 491 Re: ak} f---LI aAINO- B27 51S) 118) 6? > 
as018s 116 il ra 4 R?: -BSCt ZNO NT RRUBT ON TXMIT/<15><12> 
2900 02011 Boser 4 : “Al AM ><12> 
2901 Geoie3 HL 101 433 bi “RSet iT aw 7415><41 12> hrs testi 
ooso WU OPM ° < 46 < > 
2903 pSotee 00501 49490 EON ‘Bect >< 10> eee END OP te TES "ope 15><12> 
1 0 3 4 : 2 S><12>/PCF O 7<15><1le> 
sae GSREIE oeuZl SAUDE PATIO ered Bes. AREIY SAR ELBICE*ERABRs OPENED 
ee 8 le Bard errs ee Lay ‘a Aga steel wR ai 
$ ° 44>? 
114 lil 1 4 : # E07<15><12> 
2310 020370 047503 OS1S16 046117 13630 CTLM: .ASCIZ /CONSOLE CONTROL 
e9le de20411 004% o003401 oo000e 4 L «4><¢1)>¢7>¢2> T AP! N 
e313 020416 oo00404 90100 49950 ALL OFF Beets <>< I> a iDESELE ECT ALL SEGUE SEOUE nee ms 
- « < + > 
Sate BEBISE oot: B81d05 °°°8RR BRROR SCOPE: -AKES curctr<gecQ0O> FBELECT. WNTOUE SEGUE 
2916 020434 50100 - EVEN 
2317 020434 000060 0150 STAC “BLK 48. 
18 7% 000036 S STACK KW 30. 
2919 020670 o00000 50250 WORD O 
2920 061102 50300 START 
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